
LA GRANDE EVASION surTl 99/4A 



Vous vo!a pnsonnier... Arnverez-vous a deiouer la vigilance de voire gar- 
dien el a Mr? Vous lapprendrez des que vous aurez entre le programme 
dans voire Texas. 

Guillaume BESSE 



BASIC SIMPLE 

: 
■ 
WO F 01 

L COLOR! 



■ ■ ■ 

> READ FC 

> CALL MCHA 






3«o fop. rv- 

■ ■ 

■ ■ 
.... . 

S40 CALL > E 

EMEM 5*0 
3*0 COLL CLE Oft 

■ ■ ■■:. 

::- LA GRANDE EVAS It 



EST SOUS VOTP.E CELLULE- ":: "HAIS 
ATTENTION AU GAR 
DE-::"0U1 PASSE DEVANT ": : 

49Q PRINT "CETTE PORTE ::: 

4<K> INPUT "enter ■-;.»** 
. ra.*a K>0 CALL CLEAR 

310 PRINT -POUR DUE LE GARDE ME 
VOUS":: , 'VOIT FAS, VOUS DEVEZ VOUS 
": :-CACHEP. DERRI 
ERE LE RENFCN--;; "CEMEflf DU HUP. 



320 PRINT :"ATTENTION,LE GARDE V 
o PLUS": :"VITE CUE L'CN NE CROIT 

! "si "ARRIVE AU 
DERNIER RENFON--:: 

ZZ'J PRINT "CEMENT. VDUS DEVEZ COU 
RIR'IS-JUSCU'A LA PORTE DU VOUS" 
: :*ATT£NDRA UN C 



INPUT -CONNAISSEZVOUS ■ 



":S 



ODE. 



POUVEZ PLUS 
570 PRINT "A 
: : "S'OUVRENT 



390 IF (S£S*>SW*. I, I>-"0" >* <5E(i* 
ia», 1.11--0-J—1 THEN fr30 

CLEAR 
4IO PRINT " 

- LA GRANDE EVASION 



PASSER.":: 
230 PAS CE! 

MAIS VOUS '■■. I : 

U TEWS.'- ■"■•"■ 
ENT VERIFIER D 
ETES 

CELLUE. ': :: 



AIO PRIMT "LE E*JT DU JEU EST -CO 
MME "a : "SON NOM L - I ND I DUE -DE ": : " 
S' EVADER D'UNE P 

RISON.-: :-V0US ETES DANS LA":: 
430 PRINT "CELLULE DU HAUT ET 

**0 INPUT "enter ":XX» 
43Q CALL CLEAR 

440 PRINT "...VailS AVE/ ENFIN FI 
NI DE": : "CREUSER VOIRE TUNNEL. ": 
: "VOUS DEVEZ APR 

1VEP A LA"::" PORTE DE DROITE":: 
n "PAR LE CHEttin Rj] "It" 



•i :"LA TOUCHE ( 

■ 
... .... 



AS, I* : 

UE": :"Vt 

FIE?' DANS VO' 

390 INPUT "<-"■<-• ':<•* 

..;., print "vous rower jouer ave 

R.F.I -f'.Otl AVEr 



Ipha 



ol 



ATTENTION 
POMPEURS! 



Jusqu'a present nous n'avions nen 
dit: plusteurs programmes copies 
son! arrives chez nous et, apres 
avoir constate qu'ils etaienl large- 
ment Inspires' de programmes 
deja parus chez nos confreres, 
nous les avons purement et simple- 
ment mis au panier. Nous ne pou- 
Vons malheureusement pas tout 
verifier et. etant dans Tim- ' 
de suivre !a totalite de 
francaise europeenne et moiwib.-. 
pfusieurs programmes sont passesa 
travers les mailles du file! et ont ete 
publies dans i'hebdo Les auteurs 
des programmes originaux se sont 
fails con nailre et il est evident que 
e'est eux qui loucheront le sataire 
correspondanl a nos publications: 
les plagiaires non seutement ne 
loucheront pas un Kopeck, mais en 
plus se verront assignes devanl les 
tnbunaux et .croyez moi: ga va teur 
couter cher ! Mais il y a plus fort : 
un joyeux rigoto dont nous ne cite, 
rons le nom qu'apres sa condam- 
nation, a largemen! depasse tes 
bomes.Suivez bien I'histoire de 
Monsieur Pompeur: il achete 'Jeux 
et Strategies" - lexcellente revue 
de notre confrere EXCELSIOR - Il 
y trouve deux superbes program- 
mes, il les tape sur son ordmateur 



et. constatant leur excellenle qua- 
tite, tl tes envoie a I'hebdo qui les 
publie dans ses cotonnes. Pour 
celte operation il signe un engage- 
ment avec le bulletin de participa- 
tion par lequel il certifie que son 
programme n'esl "ni une imitation 
ni une copie dun programme exis- 
tant" . Le moins que Ton puisse 
dire e'est qu'il ne fait pas grand cas 
de sa parole et de sa signalure. n 
va avoir de mechants ennuis grace 
a cette tres intelligente operation. 
Et ce n'est pas (ini ! Les responsa- 
b!es des "Hebdogiciel Software" ju- 
geanl les programmes de Monsieur 
Pompeur sutfisammenl bons pour 
' '— — ■' ' ~. cassettes de 

jiies par SHIFT 
cjji i rof*-., convoquenl Monsieur 
Pompeur et iui propose un contrat 
pour diffuser ce logiciel. Monsieur 
Pompeur. sans complexe et tou- 
jours avec aussi peu de scrupules. 
signe son contrat qui atleste lorigi- 
nalite du programme copie. Et la. 
e'est carrement du vol ! Monsieur 
Pompeur. par ses mantgances, ses 
fausses declarations et sa betise 
risque de se retrouver devant une 
juridiction penale el d'allet appre- 
cier !a paille humide des cachots 
francais ! Ouant on sail que Mon- 
sieur Pompeur n'a pas 58 ans. on 
peut dire qu'il est plutot mal parti. 
Alors. par pitie. pompeurs de toule 
sorte et de tout acabit. STOP : ce 
n'est tout de meme pas si complt- 
que d'ecrire un programme sans pi- 
quer les listings et les tdees des 
autres ( 



Je vous fats un petit 
tone de ne pas effrayer tout te 
monde : Faire une adaptation dun 
programme vu sur une machine 
dans un cafe ou une safle de jeux 
oy encore sur un ordinateur exts- 
Suiie page 2 



MENU 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



APPLE II Robin des bots 


JPetOMAOELAINE 


Page 4 


CANON X 07 Cartes magiques 


Alain NOGUES 


Page 7 


CASIO FX 702P 


Prisonnier 


Regis BARD 


Page 13 


COMMODORE 64 


Avion 


Cyril CAMBIEN 


Page 14 


VIC 20 


Flipper 


Vincent FARGET 


Page8 


DRAGON 


Cubes 


Bruno CARTON 


Page 6 


HP 41 


ReTlexes 


Patricia COOUERY 


Page 17 


MPF1I 


Araignees 


Chnstophe LE BOUiL 


Page 18 


ORIC1 


Kong 


R. TALLONE 


Page 3 


M2 80 Opera 


on dragons 


J.L. VILLAIN 


r.i'je :■' 


PC 1251 


Tunnel 


Jerome de LAGAUSIE 


Page 18 


PC 1500 


Cliff hanger 


Arnaud SCHLEICH 


Page 2 


ZX 81 Tour de cartes 


C LACOUR 


Page 1 4 


SPECTRUM 


Blackjack 


Frederic PRODEO 


Page 5 


TRS80 


Anglais 


Frederic CIRERA 


Page 8 


TI99/4A{b.S.) 


Evasion 


Guiltaurne BESSE 


Page 1 


TI99/4A(be.) 


Duel 


Emmanuel LUSINCHI 


Page 12 


THOMSON T07 


Laby3D 


Lilian JOUAUD 


Page 5 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07. CASIO FX702-P. COMMODORE 64 ET VIC 20 . 
DRAGON . HEWLETT PACKARD HP 41 . MULTITECH MP - F II . 
ORIC1. SHARP MZ, PC 1251, PC 1500. SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HIPPOREBUS Irouvez I expression qui se cache dans la B D de I hippocampe Decompose en troissyllabes dans les Irois premieres cases, le'loul" a evidemment un rapport avec l 'nlormalique 
(solution en page interieure) 




CLIFF HANGER 



Vous etes CLIFF HANGER, gentleman-cambrioleur au 
grand coeur. et vous allez devoir faire face a plusieurs 
situations ou vos reflexes seront mis a rude epreuve: 
les evenements. les situations vous sont decrites tex- 
tuellement a I'ecran monolique (eh oui! ) de votre 1500. 

Amaud SLEICH 

Mb '■:■ d amptafc 

Au cours des affichages, dans certains cas, vous avez a effectuer: 

Une action des pieds ou des mains, a ce moment la s'affiche le mot 

"ACTtON.", et vous avez un laps de temps (Ires court, ne vous in- 

quietez pas !) pour appuyer "P* ou *M" (pieds ou mains) pour agir. 

Un cnangement de direction: haut (louche "R"), bas (touche "C"). 

gauche (touche "S"), drorte (louche "G"). 

Dans ce cas, s'affichera le mot "MANIP". 

A chaque cnangement de tableau, s'affiche le temps intermediaire; 

si vous vous ptantez, vous avez une explication sur ce que vous 

aunez du faire. 



PC 1500 




IIOSUN :UOIt 58: 

-ler TOB 

Me* cl ,f ( I"! 
PS1NI -ShMi ! 

<M !':PRINI -0 
Oh" 
2:FOB 1 = 110 3- 
PR1M -aiaoirr 

SEEP 1.258, 183 
:«XI 1 

18:WEST0ftE 1808; 
BEEP I: CLEAR i 
D:n A*12>*26:A 
•12)-- ft 

c\lon !;-:ft«<l 



Tint ;coro 888 

.: IF 0»<B) = -K- 
PRIHI 'vOIRE r 
EnPS*:PRlNt 
HOE :PRINI 'B 
ROUftUOUS WEZ 
PEUSSI, -:GOI0 
298 



22: IF LEn M(8K> 
IPR1NT fi*(3J: 

core 28 
23: IF p»(8)=-F- 
LEI H-16:G0ID 
28 



26:x>(ft*(8) = -p'0R 

ft»(8J-'n'J»l 
22: IF ]f*TErs <>" 

FOR 1=110 5:1= 

5:6010 48 
33: HOI T B:PRINt 

*((O:u0H 58: 

BEEP 1,8.5 
35:F0R 1=110 H: IF 

1MCEY* =0*0) 

THEN 45 
«0^NEXt l:CL5 : 

BEEP 2--BEEP I, 



RINT 



LA Fit 



255. € 

ftflBSH ! 



sPRIN 



581: IF A*(8>="n* 

PRINT 'UouJ ou 
riei du rolr* 
•rain': GOTO 58B 

582: IF A*C0>=-P- 

PRINt 'Uoul. au 
r>»« du Faire 
p!ed-:GOT0 588 

583: IF 0»(8)=-&' 

PRINT 'UouJ ou 



<-":G0I0 588 

i: IF A»(8J = "C 
PRINT "Usui at 
rie7 du Talre 



GOTO 580 
45:BEEP 1,248, 28: 
0010 20 
50a:UAlT I83:PRINI 



E UOUS EN REHE 
RClt, SPRINT ■ 
"AIS LOUS OEUR 
IE2 ESSOYER': 
PRINT "CE 8ATT 
RE K 



B;«n!-:URIT 58 

805:SEEP J, 150, 1 84 

:8EEP 1, 188, 93 

:BEEP I, 135, 35 

:B£EP 1,35, 173 

:6EEP 1,880, IB 

I: BEEP I, 148,6 



882: BEEP J, 165,83 

B18:3EEP 1, IB3, 134 

:BEEP I, 162, 18 

8:BEEP I, 143, I 

96:&OI0 2B 

385:8EEP 1, 158, 184 

:BEEP 1, 1S3, 33 

:8EEP 1, 135,35 

:BEEP 1,85, 158 

:BEEP 1, 065, 16 

5:BEEP I, 140,6 



*, "TV, -DEHAR 
RES, Ul I J£ | ! 

1010:doto -Four; i 



815:0010 -H", "Oh 

, -E*,*Pihhhh 
. . . -, 'On le 
s a enfln la 



1825: OATO ■ 



1B35:DAIA Tlais 



1045:0010 ' 



IATA -G-, "Flo 



ie6B:OATA "C", >« 

■ . ■ 



ia75:0OTA "Sir 



- ftnfMYlOfini 1 1 

c corde.CI i f 
f I" 
1333:0010 -fl-, -E' 



!:DATfi 'nou: a 



Port oni ! " ( " 

s-, -p* 

U85:DOTA "Prends 



a jouche", "5 

-, *s- 

11 10:DATfl -6-, *S" 






On I a eu ?! 

FlopFlo 



I!40:DOTO -S". 



145: DATA "E". m Zn 



cf>- d* 
-te'.-S 1 
1153:DftT0 "i 



", *KI ing! '. !' 

, -n-, *ri-, -G- 

. -G" 
M55:OATA "G", "&' 
, -n-, 'Oui! u 

, "SLOTT! !", -0 

-&-, p n-, -n-, 
"II" 

II68:DOTO 'H - , "H" 



, '(l"i 'At(*nt 
-lol ! !", -R-, 

-n-, -G-, -n-, 
ii65:oata -n-, -n- 

, -Allu.es I 

n-, -Booourffwi 

!!!-, -SORT0 

NS PAR LE PL 

AFOND- 

1173:0010 'ft-, -£• 



IIB»:D0TA -&-.-JI 
w *»i ! |-,1 



", -R-.-URWlO 
uunm •:•.',• 
Bon, •'.-{•, 
-F- 
II9fl:OATA -Elle • 



1288:0010 'l< |(u 



iur lo 2 



D1EU ■CWl ia 

I215:OOTO 'ce *.! 

o...'-,-.!.F| 
otch.chpl le! 

u a", *lo c«u 
:t« la box', 
"P", 'oprei I 
a chute. El f 

!225:D0TA 'ol ler 
au bout ', *rle 
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OPERATION DRAGON 



Vous devez obtenir un nombre de points superieur a 

celui defini par I'ordinateur, de maniere aleatoire et 

oompriB entre 5000 et 8999. 

Pour marquer des points il vous faudra: 

^ccomplir une mission composee de 2 epreuves: 

Epreuve 1 reussie: vous passez a I'epreuve 2 

Epreuve 1 echec: gain de 500 points et fin du jeu. 

Epreuve 2 echec: gain de 1000 points et fin du jeu 

Epreuve 2 reussie: 8000 points et fin du jeu. 

Vous remarquez que si le nombre de points fixe par 

I'ordinateur est de 8500, la reussite de la mission ne 

suffft pas pour gagner (elle n"a rapporte que 8000 

points). Mais vous pouvez coilecter des points en: 

Coulant un maximum de navires ennemis (500 points 

par navire) 

Envahissant des iles (2000 points par He conquise). 

J.L.VILLAIN 

Mode d'emptoi: 

Deux enregistrements doivent etre effectues sur la bande: 

1 ) le programme 

2) le message sonore 

En debut de programme un GOTO2050 branche sur la presentation 
Relour au debut et un GOT0 1900 branche sur le sous-programme 
permettant la lecture d'un message audio (de 1900 a 1929). la tou- 
che PLAY devant etre enfoncee. 
LE JEU 

Pour assurer vos fonctions de commandant du sous-marin DER 
BLITZ vous disposez de 15 ordres: 

M mouvement, S surface, P montee ou descente (plongee), E im- 
mersion periscope, U sortir le periscope, Y rentrer le periscope, L 
lecture carte maritime, I identrfication des navires observes au peris- 
cope, H chargement dune lorpille. C lecture des cadrans, K ecoute 
du sonar, F fin abandon de loperation dragon, Touche en haut et a 
lextreme drorte: affichage de la liste des ordres. Touche en bas et a 
I'extreme drorte conversion des points en unites de valeurs 
Apres chaque affichage de vos ORDRES taper une de ces touches, 
cela donne lieu a 2 possibilrtes: 

1)affichage du tableau corresoondant a la touche frappee. 
2) la lettre frappee n'est pas enregistree, mais emission dun mes- 
sage sonore ou affichage d'un message vous prevenant que vous 
avez ete coule. 
Messages sonores: (sonar) 
do re echo vide 
do si la echo baleme 
mi sol si echo navire 

notes idenliques emises tres rapidement: varialion de profondeur du 
fond marin. 
Messages affiches 
destruction du SM 
presence de mines 
Quelques explicalions sur certains ordres; 



M: lors de la demande mouvement, taper le chiffre de votre choix et 

frapper CR. Le mouvement sera enregistre (chiffre entier seule- 

ment). 

Si les coordonnees du SM sont idenliques a celles des ties 1, 2. 3, 

vous avez la possibilrte de conquerir ces iles. Lors dun prochain 

contact avec cette lie vous pourrez vous ravitailler. 

En ptongee les batteries sont ulilisees pour le deplacement. Celui-ci 

est impossible si elles sont dechargees; pour les recharger surface 

S ou immersion periscope E. 

S vous chargez de + 5 

E vous chargez de + 2 

En immersion periscope E, ou en surface le mazout est utilise si les 
cuves sont vides depfacement a partir des batteries. 
P (plongee) 

Afficher le chiffre choisi el CR 
0: surface 

entre et 5: immersion periscope (mode combat) 
superieur a 5: plongee profonde. 

Le maximum Iheorique est de 120 metres. Votre SM n'a jamais et6 
essaye au dessous de 80 metres mais au dessous de cette profon- 
deur les attaques de surface et les mines nont aucun effet. 
L (lecture carle): 
lies 1 . 2, 3 

Iles de ravitaillement: coeur 
lie de rendez-vous: debut de la mission 

K (ecoute du sonar): A chaque pression de cette touche emission 
dun message sonore 

T (lir): entrez les coordonnees x et y puis CR. Exemple: si x = 4 et 
y = 3 entrer le nombre 43 et laper CR 

I {identification des navires): vous donne quelques elements d'identi- 
fication des navires observes au periscope, Les bateaux ont ete de- 
coupes en tranches. Si un navire observe au periscope possede 
une ou plusieurs tranches, ators vous etes en presence d'un navire 
ennemi. 

Les unites de valeurs (UV) sont utilisees pour la conquete des lies 
1, 2, 3: pour accomplir la mission (si UV insuffisantes changez des 
points! ) 

II est possible de gagner une parlie sans accomptir la mission. 
Modification du programme 

Si les messages sonores sont incomprehensibJes intervenir dans lo 

programme en modifiant le TEMPO (ligne 7) 

Ligne 7. 8, 9 

CT: 50 nombre de points en debut de partie. 

UV: 10 nombre dunites de valeur en debut de partie 

PF: 20 profondeur du sous marin 

FD: 80 profondeur sur fond marin en d6but de partie 

AC: 10 batterle en d6but de partie 

T1: 10 nombre de torpilles en debut de partie 

MZ: 20 mazout 

Si lo jeu est trop difficile, modifier les RND 

1) ligne 30: U2 > INT(X RND(1))+ 1 

lei X - 25; augmenter la valeur de X et les avions et les mines 
seronl moins frequents. 

2) changer !es RND du programme en augmentant la valeur de X 

3) ligne 2000 division par 100 au lieu de 10. 

Pour compliquer le jeu: a la ligne 30 remplacer X 25 par X = 10 
ou 15 mais le jeu est assez difficile comme ca! 



5 BOTOTflSe 

G coioisee 

7 TtnPD&JCIrymi 

8 Tl=lB:OC=lfi:PE= 
3 U-3:Pf >'7B^fO'8H 

ia oirtucuj 

11 D*Cl)--( 05 0-C7E6 " 

12 D*t2J--E6C2 Fl C7E6.C4 

13 D«C3)--FEC8C8L»C-7C7C8CaC3 
M D«C4J»-03'03eO<iO 03F1F)D3 C2E8 

15 0*C5} = -?6C8r_8CaC8C8CB75 

16 D«c6)-*FEC8cac8cacacec3 

T? B»[7) = -EGC7 81F6fGTIFl 

18 D«tB)'- FI 

13 B*C3)='81 Fl C2E6* 

28 ni = IHTt66»R«ltl)] 

21 ft?=IHTt68«RMlCn) 

22 eO"St*MG9ttHOtm 

23 ft4 = INTt68tRT«Cl 11 



:PT=8:NeH) 
:fP-«:Nft=e 

' :n;-28 



VKZ- 



60 



•IMTtOSIRHDtlWH 



1)1 

24 0-*fW :j-ft4-l :IFCOl1 [ i2)*Cri2=03)GOT02e 

75 PRIHT'B- 

26 PRIMT'UOS ORDRES- 

38 U7'IHTC7S»RNO[l))»l 

31 IFPF>8BG0T033 

32 IFPFOGOTD37 

33 IFU2<4GOTOI254 

34 lfU?-8GOr017Oa 

35 IF(PE = 1 )t(U2=5)G010l 

36 GOTO«B 

32 IFU2=6GOI0l788 
38 &0«0«B 

33 IFU?=5GOI012BB 
18 BETS*: \Fl*^' GOT04B 

51 !M*^'L-W)I0IB8 

52 IF2« = -S'&OI0133 

53 lf-i'* = -<*-&0!0243 

54 IF?«=-E-GOT04B8 

55 lFi»^-U-G0T0l3!)8 
50 IFE«v'r*G0T(M49 

57 IF?«''n-OOI0535 

58 iF2«--c-ooio?aa 
53 IF2»'-|-G0T0/D5 
CO il *% ■-.|'u0TO833 
61 IM»-" r-GOTOlBBB 
67 IF?*»*K'«>T012Sa 

63 IFZ«»-F -GOT02BW) 

64 lff.t<**?C-f*)lO?5?a 

65 I t 2* = -2rGOT07373 

66 G0T036 



IB7 PRlNl- 
183 PSINI- 
'84 P«IMI- 
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ATTENTION 
POMPEURS 



tant dans lo cornmorco : e'est 
permis a condition tfecrire vous- 
meme le programme. En dair. vous 
pouvez essayer de reconstrtuer CO 
quo vous avez vu aifieurs;. par 
contre. piquer un listing dans uno 
revue, deprotoger \jrt programme, 
ou voJer to listing do votre voisin do 
palior ; e'est comptotomenl dolondu 
ct ca pout vous rapporter do gros 
p.obk)me,l Q.CECCALOI 



KONG 



Un classique du jeu d'arcade. en 4 tableaux. Voire 
fiancee a et6 enlevee par le gorille KONG. A vous de 
la recuperer en 6vitant les projectiles lances par 
KONG. Et rappelez-vous: on ne vit que trois fois. 



Robert TALLONE 



ADAPTATION SUR ATMOS 

tl sutlit d'ajouter i a laxe des X de toutes les instruc- 
tions PLOT et SCRN. lorsque vous rencontrez par 
exemple Unstructiofl PLOT2.3.4. mscnvez PLOT 3.3,4. 
Lorsque cette instruction utilise une variable, du genre 
PLOT X. Y. 1 27. rentrez-ia sous la forme 
PLOTX + 1 . Y, 1 27, De meme pour les instructions 
SCRN. 



■ 

cr i - - t 

■ ■ . : .- 

- ■ i - FHEN GET :« 
8 PLOT X BM 
7 IF KB— L" THE') ft-1 BH»="d- 
IF - s= ■ THEN F»— 1 BHB— «* 

1 ■ - .- ■ ■ . .194 Them B— 4 

■•: = 134 then BM 
U ...... ■:■ .: F*>«<HR*<SCRN<X,V» 

12 IF RO0 THE" Rl-A 

13 R»0 B*0 RETURN 

^IS^HIMEM^r/F CLERP TEXT PAPERS IHKJ HIRES'PRIHT 

*:. see-i - k-i e*-".kong." for r-i to 6 e=-9 

880+ftSCXMD* ES,fl,i) «8 

T J 8 /j* ... : -PES«BK) NEXT E-3Z FOR C-9 

49 IF K-l THEM 69 CUPW0V9.9.I FOR PM TO 5 3PRW-5 

. RM0V6.-5.] HEXT 
59 k.i C'JPWGV 89. 2 
69 H£>rr E=€'2 HE) 
61 MS— R.TALLOME 1984 < E JR5ET60, :->j ,3 fop p=j 



63 CURS* -■ ^:lL 32.1.3 GOSUB 45899 TEXT I 
HK7 PRINT >pv 17 

64 ZLE »F#"EP g ihk? PRINT 

:■*■:■■ :c- ,c--'v : ji/ Lint.,.. 

66 PRINT 5PC<9X>«t«(133XMW14e>"n MENU **" 

67 PRINT S«ttl9)CMR*C132?-*SS«XU**X- 
66 PRINT PRINT -PRINT PPINTPRINT 

69 PRINT CHRK131 I - »"CHP* [34)" PEGLES" 

79 PRINT PRINT CHR« 131 )"* J t B CW*C 134> B 0E8U1 DU 

?l PRINT PRINT PRINT IHPiJT"VOTRE CHOIX 3.7 P ",M* 
72 IF M*»"R" THEN COSUB 25938 IF w*="j- THEN GOTO 



»"d" NS-3LE-1 PRINTERS' : 



CLS P 



73 

73 X-9 ir-ZS f 
RPER9: IHK4 

74 PLOT 5-12.-'JN INSTANT B.V.P..." 

'-':'-:-. ^. :■■■:'•:-: 
77 PLOT 2.23. -PRESSES UNE TOUC-HE. . . " 
39 GET »* CLS 

39 PLOT 1,1,3 PLOT 11.1. "— QRIC KONG — ' 'INK 4 
91 PLOT 9-9,1 
199 PEM *t ler ETRGE *« 

191 CLS ■- IF LE>2 THEN WT=8 ELSE HT-4 

192 IF LE=! THE" 60=2999 ELSE B0=-3333 

•-'<■-■ -■_ = : l:=:3o GGS'.e iiz? x=:--/=2^:pc«=" •• tt=& 

194 GOSJje 49190 

195 PLOT X.Y.BH* 

119 FOR 1=26 TO 6 STEP -4 

115 PLOT 2,1,1 PLOT 2,1-1,2 PLOT 2.I-2.2PL0T 2,1 
-3.2 
129 PLOT 6.1."'btobbfcbbbfcfcbfc.fcbbbbbbbist>bb&- 

135 PLOT 2,4.3 PLOT 2.5,3 PLOT 6.4."ik-r PLOT 6,5 

'l49 PLOT 9,4,2 PL0T9.3.2 

159 FOR 1-22 TO 25 PLOT 28, I, -h" NEXT 

169 FOR 1-18 TO 21 'PLOT 8, I. "h" PLOT 18, I. "h" NE/ 
T 

178 FOP 1-14 TO 17 PLOT 21, I, "h" PLOT 28, I, "h" HE 
XT 

180 FOR 1 = 13 TO 13 PLOT 8. I . "h" PL0T14. I , "h" NEXT 

139 FOP 1=6 TO 9- PLOT 28, 1 , "h" I4ZXT 

299 FOR 1=3 TO 5 'PLOT 10, I, "h" 'PLOT 12, I, -h" NEXT 

218 FOP 1-3 TO 5 PLOT 20, I « "h" NEXT 

220 PLOT 9-2,1 PLOT 19,2, "bbbbbbbbbbn" 

238 PLOT 33. 3.-d " PLOT 33,3,8TR*<NB) 

248 PEW 

242 PLOT 28,9. "h" PLOT 8.13."h" PLOT 14, 13, "h" PL 
0T2I.17, *h* PL0T28.17,-h" 

244 PLOT 8-21. "h" PLOT 18,21 . "h" PLOT 28-25, "h'P 
LOT 29, 5, "h" 

243 IF LE/I THEM PLOT 21. 19," " PLOT 17.14.' 
259 PLOT X.Y.BH* 
251 PLOT 14. 1, 'V 

258 SCa-STR** 3C > PLOT 16- 1 ■ 

259 *«=■■" fi-9 B^ 
269 IF TT'3 THEN 349 
278 GQSUe 2 

288 IF RP»»-f" THEN 2lS9 
322 IF Y-5 PWO X<16 THEN /.- 
325 IF SCRI«X.,Y*1 J-32 THEN 39999 

328 IF X-29 HMO ft THEM G08UB 43S89 HO-HO-1 GOTO 

329 IF H'. >8 THEN Hl-fl 

339 fi»9 B-9 CO=CO*1 IF WW ThFji CCNfl GOTO 242 

340 PEH 

345 IF T=0 THEM ST-INT' PNC.' J /»8 /'6EL3E GOTO i59 

346 FOP T-l TO 3 KT<T>-H 'T'l =5 ftT'r>-2HE/T T 
TT-1 

359 FOP T-l TO TT 

352 PLOT X.V.6M 

369 PLOT XT'T>,YT' T >.- " 

379 XT' T )-XT' T )*flT' T . 

372 PLOT XT'T>,7TO >"f" 

375 IF XT- T '=y Riff- TT' T'=v THEN 2108 

378 IF YT(T>-25 «*< XT<TX6 THEN GOSije 1878 

388 IF KK1K6 THEN BT<T>-1 GOS'JB I860 G03IJ8 1930 

385 IF XT(T»3e THEN ftT.'T-— 1 COSUB 1069 COSUB 18 

399 IF YTfT->T+HT THEN GOSUB 1970 
499 IF 8CRWJCT<T>*VT<TH1X94] THEM 3=[MT' PMC/' 1 >t 
3) IF S=2 THEN GOSUB 1959 
410 ICXT T 
420 IF TT'3 THEN CP=CP*1 IF CP>8T THEN CP-9 TT-TT 



0?\G 



«i 



1819 PETiJRN 

1859 AT' T >«-flT< T > 

1069 PLOT XT'T>.YT'Ty." - lfT<T>-YT<T>M PETUPN 



-. 
■ 

. 

i | 

■■ 
: ■ ■■ ■ : : ■ ■ ■ ■■ ■ : 

: ■ 

'■-'.' .'-»=-_-=.»- m< 

,i< i- 

-. ■ ■ I PLOT 24,1 

■.; | i 

9 22.-A!WJ'0U IPI 




: I 
1170 H ■ 1,4,6.7 • 

nee i 

■ ... MUSIC 1,4 

.... ■ . ■ ... 

1218 ■■' BIT 55 

■ ■' '!NG 

■ ■ ■ 

■ ■ RETURH 
399 :■■ 

'29 
..... 

■ ■"' ?■■? 

2193 fop 1=1! TO 1 STEP -1 
MUSIC 1,4.1,7 MR II 18 

2120 IF J=l THEN uftiT 28 J=>? NEXT IGOTO 2148 

2123 J=l 

2138 NEXT I 

2149 WRIT 29 SHOOT WRIT 198 

2143 R-0 8=8 T=0 6H»="d" 

2159 NB»NB-1 IF MB=9 then PLOT 15,12,"% FIN ■/:-.- 
GOTO 2179 

2169 GOTO LI 

2178 WRIT 189 IF SG'HS'7) THEN 2269 

2189 CLS IN* 2 

2198 FC* T-] TO 7 IF SC>HS<T OCH 2229 

2299 NE:a T^GOTO 2268 

2228 FOP L=7 TO T STEP -! 

2238 HSVL-M >=H3*<L> HS<Ltl .'=HS'L • NEXT L 

2240 HS'T >=SC PRINTPRINT'PRINT"VO'JS VENEZ VE PEFi 
LISEP UN" PRIHT"0C8 7 KEILLEUPS SCOPES." 

2259 PRINT ; PRINT INPlJT"VOT»E MOM S.V.P ~ - N» H«-MI 
D«CHS,1,1S>>H9KTMW 

2269 CLS -INK 4 

2278 PPINTCHRS'4> PRIHTCHRK 37 )"H"CtR*C?7 ■'■"' 
MIX*. KONG x*tt- 

2271 PRINT CHRS<4> 

2272 PRIHT'CL-J 

2275 FOR 1=1 TO 7 PRINT"-";! ; -- ";HS< I)= PRINT HEX 
T 

2278 FOR 1=4 TO 16 STEP 2 PLOT l.I.CL PLOT 17, I. H 
S«CL> CL-CL+1 NEXT 

2279 FOR SOI TO 9939 NEXT 

22S8 MB=3 LE-1 = SC=9 ■■ T-SC GOTO 188 

3888 PEN IX Z?r ETPGE »* 

3882 LI=3880 DP»6 'i'P=21 GOSUB 11 29 "GOSUB 49i08:YB 
= 17 X8=17-ftB^=•' ":BO-3089 

3885 PLOT 33,3. "d": PLOT 35.3*STR«HB) 

3986 INK 7 

3988 PLOT 0.26-1 PLOT 0,18.1 

3010 FOR 1=6 TO 29 PLOT I.26."b* PLOT I, 18, 'b" ME 
XT 

3928 PLOT 8,18,3 PLOT 8,14.3 PLOT 8.22.3 

3930 FOP 1=6 TO 29 PLOT I.19."u" PLOT I . 14. -u" PL 
OT 1. 22- "..." NEXT 

3048 PLOT 11,18." "PLOT 23, 

3058 FOR 1-14 TO 17 PLOT 14. 

3968 PLOT 8, I. "h" PLOT 27.1, 

3079 FOP 1=22 TO 25 PLOT 14, 

"""") PLOT 3, \, m W 'PLOT 27.1, 



1 PLOT 5.14,"i 



389C PLOT 16,1 
■ PL0T5,22. "•} " PL0T39. 22 . ■•■)" 
3190 FOP 1-18 TO 29 'PLOT 12, I, "I 



I."h" PLOT 21,1. 
"h" NEXT 
; ,-h' PLOT 21.1. 
NEXT 



PLOT 22. I. "H" 



3125 PLOT 8.8.1PLOT0.9.1 PLOT 8.S,"Jkl" PLOT 

, -MM" PLOT U,8,7^PL0T11.9-7 
3138 FOP 1=6 TO 9'PLOT 12. I, "h" PLOT 14, I, "h" 



HEX 



3148 PLOT 0,5,! PLOT 12,5. "b b" 

3150 FOR 1=3 TO 9'PLOT 20, I , "h" NEXT 

3160 PLOT 13.7,1 PLOT 15,7, "bbbbbb" 

3165 PLOT 17,6, -v"" PLOT I7.I3,"tf 

3179 X=I8 Y-25 BH*--d" PLOT X.Y.BH* BP«-- " 

3299 GOSUB 2 

3215 IF Y-21 RMO IY=1 THEN PLOT X,Y," " X-X*l IY- 
GOTO 3229 

3216 IF Y=I3 RMO X>18 THEN PLOT X.Y," " X-X-l IY- 
0-GOTO 3229 

3217 IF Y=I3 RMO X<17 THEN PLOT X,Y,' -iX-X*! 
3213 IV»1 

3229 S=SCRN<X.Y> 

3230 IF S=105 OR S-112 OP 8-113 THEN GOSUB 9998 
^-240 IF Y=9 THEN GOSUB 48808 H0-H0*1 GOTO 5083 
3253 IF x>29 THEM X»23 

3255 IF X<6 THEN X-6 
3258 IF 3CRN'X.Y»1 >32 THEN 33983 
3273 IF 8-116 THEN 2198 

3283 IF CP>2? THEN DP-6 YP=21PL0T 39,21," " 
3285 PLOT OP.YP," "■ DP-DP* 1 
3238 IF SCPN'DP,YP)''>32 THEN 2188 
3295 PLOT DP.YP.-r-- 

3333 S=INT-'PNO' 1 )«2> IF S=9 THEN 8—1 
3302 PLOT XB.YB.8B1 

3385 XB=XB*S IF XB<!2 OP X8>22 THEN XB-XB-S 
3319 SB-BCfiHCXB-YB) IF SB<>32 nup Se<M94 AND $B< 
>112 THEN 2109 
3312 Re*=GHP«'SCPN'XB.YB>) 
3315 PLOT XB.YB.-V 

3323 CB=C8*1 [F CB=5 THEN CB-9 GOSUB 1399 
3330 PLOT 16.1.STP»'Sr , 
3999 PLOT X,Y,BH« 
4088 GOTO 3230 
5909 PEN ** 3?r ETRGE tr 
5832 LI =5809 ^=4 V-22 GOSUB 1123 B0=2303 XB-I6 YB 

5BB9 PL«="bbb" B2*-"bb" B»%'"4" RP*«" " YP-5 RP«- 

■ ., f, P , = - ■ 

5933 FOPFI-1 TO 3 Vfif I >^15 NEXT 

5909 YR-! I ■>* 1 4 Yfi' 2 )= 1 3 Yfi' 3 -=22 

9918 G09UB 40190 

5015 PLOT 33,3."d" PLOT 35. 3. STM< NB ) 

5029 INT 3 PLOT 9,9.7 

5922 FOP 1-3 TO 24 PLOT 7.1,1 PLOT 19- J. 3 PLOT 14 

i . : HE> t 

5925 PLOT 0,26,1 

5333 FOR 1=4 TO 39 PLOT \,2&,*t 

5935 PLOT 8,23.1 

5840 PLOT 4,2?,PL» PLOT 18.23-PL* 

5953 PLOT 8.12.1 PLOT 0,18.1 

5860 PLOT 4, 1 2. PL* PLOT 4-18.pi « 

5063 FOR [-4 TO 22 pi ht I,6,*b*'HEXT PLOT 9,6.1 
FOP i=6 TO 9 PLOT 23, I."h" NEXT 

5875 PLOT ll,12-"K*.h" PLOT 1 1 .29.PL« PLOT 19.29-1 

5080 FOR 1-1? TO 19 PLOT Il,|,-h h" NF> T 

3985 PLOT 311.1 PLOT 19- 1 1 PL« PLOT 28-20. PL* 

5399 FOP 1-11 To r. pi or 29 t ■'!.'• NEXT 

5995 PLOT 22-22. B2* PLOT 25.21 P^» pi 0T23. 15. B2» 
PLOT20, I4.B2B PL0T23, 10,B2» 

5190 PLOT 26-9. e2* PLOT 29-3. 82*' PL0T26. 16,B2« FL 
0T29. 17.82* 

5110 FOP 1-3 TO 12 PI OT 29 I."h" HEXT 

5129 PLOT 26,13--bbbbb" 

5125 FOP 1-13 TO 15 Pl/lT '.:, -I .">■" Ill n 

5126 FOP 1-18 TO 22 PLOT 31 ">." NEXT 
5128 FOP 1=1? TO 17 PLOT S,I,"K* NEXT 
5133 FOP I-I7 TO 19'PLOT 29. I ."h" NEXT 



5131 PLC" 

... 

■ ■ | 

... 

■ ■ - 

■ : I 

■ 

5183 F0» 

• : ■" 

: • 
PLOT 
■ ■ 
5209 REM 

:^: *:■ ': - .OT - I) - 
:■ if -■ i =, then .- " 

I ••*! 

' '■ '- ' -■-■-■--■. 

Tj:T IF VFK1 >-24 fM) -■-■'■-■ 
■ 

5241 IF ': -15 " ='- of«> Y>7 THEM PLOT x.Y.RP*- 
- ■: 

5242 IF X-8 OP X-9 THE'i 

5243 IF I 24 THE _ 

r=-« :=■■-■■-.■■■-■ ■■ 

:i-v-HNPL0T23 5, ■'/ ■ GOT< 

5245 IF ■;■-.- THEN PLOT 23.' 
3.5. ■ ■ 

5246 PLOT 26 B Ft • --- =.; RRt-CHR* SCRMC26,VR)J 
3248 PLOT 26. YP--*" 



5255 PLOT 1€,1,STRKSC 

5260 IF »-*=■•'■ THEN 5999 

52€5 ['0=S:P'i ■.-■•■ 

527B : r K*-"L' fMX0O< t- 1 - QC - ; » •■ 'THEN R«l B 
H*="d" 

■:: : ^ IF X*--K" FHXOC !84 OR RP»<>-h->THeN R.-i 
BH*»*#* 

5290 IF K*-"fl- 8MD'D'J=134 op w>*--h- >THEn B--I BH 
*=-?" 

5300 IF KB— 2" AND DO-104 THEN 8=1 BM— *- 

5395 IF K»-" - THEN GOSUB 7999 

5396 IF c*="P- THEN GET Z* 

5310 PLOT X,Y,fiPVX=>>R-Y=Y*B-flP»=CHP*rsC»N(X.Y>) 
S315 IF Y=5 AND X<15 THEN X-15 
5320 IF fl<)6 THEN Al=ft 

5338 *=0 B=9 

5340 ST=SCRN'X,Y1 IF ST=1B5 OR ST-1I2 OR ST-1I3 T 
hen C:-'.B ?-^:' 

5339 IF ST=1!6 OR ST-12] Then 2199 
3999 PLOT X.Y.BH* ST=SCPN'X,v»I ) 
5983 IF SCRH<X,Y-1 )-99 THEM 2189 
5918 IF ST-32 OP ST<7 THEN 39093 

5913 IF Y-2 THEN GOSUB 40309, HO-HO-1 GOTO 11099 

5929 S=INT'PNC'- 1 112 :■ IF S-0 THEN S— 1 

5925 PLOT X8.YB.R8* 

5938 X8-XB*S IF XS'15 OR XB>22 THEM XB-XB-S 

5933 SB-SCRNXXB.YB) IF SB J2 RND SBO104 then 21 
99 

5940 BBS-CHR*<SCRIKXB.VB>> 

5?J5 PLOT XB.YB*"t" 

6660 GOTO 5210 

7383 REM 

7393 IF BH*-"»- THEN RETURN 

7396 IF X=16 RMO Y-13 THEN X=23 PP«-"h" GOTO 7939' 

7919 PLOT K.Y.RPB BS«-CHR*< SCRN< X*B1 ■ 

7615 IF K-24 AND Y-14 THEN RP*«"h- X-26 Y- 15 GOTO 

7350 

7028 PLOT X*flI*Y- !-■*"' COSUB 19213 PLOT 
RS* X«X*2*A1 Y-Y-l 

7925 nP*-CHR*(SCRHCX.Y>) 

7O30 PLOT X.Y.BH* S-SCRN<X,Y*n 

7849 IF 3-98 OP S-104 THEN RETURH 

7045 FOR 1=9 TO 1 

7030 PLOT X.Y.RP* RPXHP*' SCPN'X.Y-l >v Y-Y+l PLO 
TX.Y.BH* S-SCRHCX,Y+1 > 

7060 IF 5-98 OR 8-164 THEN PETijPN 

"062 NEXT 

7065 GOTO 30989 

9893 PEM 

9893 PLAY 7.0,9,8 

9010 FOR 1-23 TO 50'SOUUt' 1,1,9 NEXT PLAY 9.B.9.0 

9028 PLOT K-lfY f "9BB" WRIT 39 PLOT X-l-Y." " SC 
■8X>500 

9025 RP*=' * 

9023 IF 11*3008 AMP ST-112 THEM PLOT 1 1 , 19, "h" -PL 
OT 13,19, "h" 

9830 RETURN 

13110 PEM 

101 28 AS*=ChP*' SCRNf »fll , Y-l ) ) 

10133 PLOT X.Y.RP* 

13133 IF LI-3030 THEN ZX-X+2*ft1 IF ?:■■/£. OR 2X>29 
THEN RETURN 

10140 PLOT X*R1 -Y-l.".- G0SU6 13210 

10141 PLOT :<*fil.Y-l,RS* X=X*2tflI 

10142 S-SCRWX.Yl IF S-114 OP 3-116 OP 3-182 THEN 
POP GOTO 2108 

10144 IF S-195 OR 3-112 OP S-I13 THEN G0S'J8 9900 

10145 RP«-CHP*'SCPM'>:,Y)i Pi_ni X.Y.BH* 
IRI^O Sf'=-.rPN'X-Al .Vi 

10155 IF SO^102 THEN G0S.I8 10"c 

19163 IF 30-114 OP 80-116 THEN GOSUB 9000 

10170 IF Sf~PN<X-Rl.Y*l >-103 THEN X-X-fit IN-1 GOSU 



) pop i=-»0 TO <-"0 SOUND 1.1-8 MEX 



13200 PETMPM 

19213 PLAY 7-0 

TPLflV 0,0,0.0 

18223 PETUPN 

1100" REM " 4rr ETflGE •* 

1101O Lt=1l090 GOSUB 1120 GOSUB 49100 60-3800 MR- 


! L012 INK 3 PLOT 3.0.7 

11015 PLOT 33,3, "d "»PL01 

11023 PLOT12-6"':C':':':c<:^-":'r- " 

11025 PLOT9,I6 *cec9eeecceccccc9cce" 

1 1833 PLOT?. 14 . 'CCCCTCCC' 

1 1035 I I ■ ■ ■ ■ 

11040 plot-: .2? "cecece0ceceeeeec©c9cccccc* 

11053 FOP I--: TO 31 Pl.OT I,2B,"C" HEXT PLOT 32.28 

'|10 C .3 FOP 1 = 6 TO 26 STEP 4 PLOT 1-1.4 HEXT 

I1O60 F-i.OT 1-5.5 PLOT U 

11065 FOP [-7 TO 9 PLOT 1,1.1 PLOT 14 I." " PLOT 

.. .. Mr , :I 

11070 PLOT 17,9. "«no" PLOT 17. 8.". H" 

11080 FOP 1-10 TO 13 PL0T9.I."h- PL0T13- I . "h" PLO 

T23-I."h" PL0T27,I,"h- NEXT 

11090 FOR 1-14 TO 17 PLOT 8. t , "h" PL0T18. I ,"h" PL 
OT 28. I . -h* 'NEXT 

11108 FOR 1-18 TO 21 PLOT 7 I . -v, » Pi 0T14, 1 . "h" PL 
I I.- PL0T29, 1,-h" next 

11118 FOR I«22 TO 25 PLOT 6.1, -h" PLOT t«.|,-h" P 
1 OT 30 I "h"'NEXT 

11120 PLOT <*.9"l" PIOT 22.25.-4" PLOT 27-2I."p- 

11130 K-12 ,■-25 AP*-" " FOR 1-1 TO 4 AB*'f-" " M 
EXT 

11132 .T" 1 '-■■■ 1 1 ■ .-17 YP'4 -21 

11135 BHB--4" H r 'T X.Y.BHB 

11136 FOP l-l m 4 ::p't'-21 NEXT 
!1 140 CEM 

11139 GOSUB 2 C-C*I IF C-8 THEN C-9 GOSUB 1090 

11150 S-SCFic :■:-■■ ■ 

11170 IF 8-105 OP A-112 OR S-113 THEN GOS'JB 9090 

11175 SD-SCPN' X.Y.I > 

11188 IF SD-32 THFN ?0009 4 . 

11185 IF SD-I0T THEN GOSUB 12990 5U(tepageTJ 



ROBIN DES BOIS 



Robin doit rejoindre Marianne, mais le terrible prince 
Jean a dresse de multiples obstacles sur sa route. 
Aidez Robin a atteindre son but. 

J.Philippe MADELAINE 



Entrez le programme principal (Robin des Bois), la table de formes 
(Robin dess.) e! le programme d'initialisation du tichier des scores. 
Avant d'uti'iser le programme principal, faites executer le pro- 
gramme d'initialisation des scores. Amsi les meilteurs scores seronl 
sauves sur la diskette. Ce programme ne sert done qu'une tois, 
mais il est essentiel au bon tonctionnement du programme principal. 




. - ■ ■ 




10 




■ 1 ■ 




IF N - 2D THEN I - 


T •■ !: DOS 


■ 




29B01 GOTO SO 




2ft PRINT D*l 


250 


GO-SUB 2200l REM 


DEFLACEME 


. ■ : 




NT DES 0BJET5 




: 


260 


GOSUB 1310: REM 


TEST SUR 


■■ ■ : IT OS 




I* MORT DU JOUEUR 




■ 


.■ ■ 


!F PI ■ 1 THEN 


J - Oi SOTO 


■ ' 1 




290 




: 


2BO 


U - U • !:P9 - 6 / <»- IF PS - 


1 to s 




1 THEN U - 




■ ■ ■ ' . ■. ■ 


290 


SOTO 140 




■ ■ 


30O 


1 » I 






20 7.10 


REM PRESENTATION 





1 SO 


01 


1 74 


m 


1 97 




1 BO 


oi 


1 EB 


01 



■ ■■ ■ ■■■ 



•6O0O. 6250 

4000- IF OO 40 OO 64 OO 77 OO 
6008- » » W » 04 OO f: 00 
6O10- OC 01 2B 01 47 Oi 
60IB- 56 01 61 01 6S 01 
6020- 7C OI 83 01 BD 01 

6029- 9£ 01 AS 01 

6030- CB OI OO OI DC OI 
603B- F2 OI 02 02 OF 02 IE 02 
6040- 24 64 24 6! OC 20 20 2D 
604S- 23 2D 13 20 AA 13 76 36 
6050- 36 36 36 33 IE IE IE BF 
603B- 3F 3F 3F 3F 39 07 07 07 
6060- E4 24 24 OO 2D 20 20 2D 
6068- 03 OC 97 34 00 00 OO 00 
6070- OO OO OO OO OO 00 00 33 
607B- 37 33 37 33 37 33 37 33 
408O- 37 33 37 33 37 33 37 E3 
4086- C3 08 DB OB OC OC OC OC 
6O90- OC OC OC OC OC 40 OE 0£ 
609S- OE OE OE OE OE OE 06 OO 
60A0- 27 3C OD 24 E4 2F 24 2C 
60A8- 23 BC IB OC 3C 37 16 3F 
60B0- 24 96 09 36 IE 36 2E 36 
608B- 3F OO 27 3C OD 24 E4 2F 
60C0- 24 2C 33 36 18 IB IS 60 
60CB- 3C 37 16 3F 36 4C 36 IE 
60DO- 34 2E 36 3F 9F 00 OD 00 

tors- zu 9E~93 rr 3f zr z? -ie 

60E0- E3 24 07 2D 3C 27 24 OC 
60EB- 3C 24 10 2C OE 2E 87 36 
6OF0- 36 00 6E B3 93 OE 36 3D 
60F8- DB IB 67 OC 24 2D 3C 27 
6I0O- 24 OC 3C 24 ID 2C OE 2E 
6158- BF 36 36 00 IF 17 13 40 
! 20 9E 93 13 3F 3F 37 
i!lB- 4E E3 24 07 2D 3C 27 24 
6120- OC 3C 24 ID 2C OE 2E 67 
6128- 36 36 00 OC OB OC 96 IE 
6130- 96 33 EE D2 IB 27 24 04 
6138- 20 3C 27 24 OC 3C 24 10 
6140- 2C OE 2E B7 36 36 00 24 
6148- 24 20 13 IE 77 OE 03 00 
6150- 21 24 2D 33 36 3E 7F 00 
613B- 24 E5 2C 73 IE OE IE 3F 
20 27 24 2C 1C 07 00 
6168- 24 24 15 13 13 24 24 "2 
6170- SA 38 38 00 24 24 2D 13 
617B- 76 IE 7F 00 I'D FD 23 2C 
6180- FD 2" 2D 2D 00 :■'.- 03 EO 
6138- 3F 60 2D 03 00 24 24 13 
6190- 13 OC OC 76 7* 04 ->0 09 
6198- 24 24 2D DF 3F OO 2D 81 
MAO- 24 24 F8 9F 36 34 06 00 
61A8- 49 24 24 24 1C IE 

■ 2E ED D9 24 24 2D 2D 
61B8- 24 21 " c JF 00 ID 20 24 
■■..■ ■ ■■ ■■ ■ 

61CFJ- 09 09 24 24 3F 3F 24 24 
2D 2D 24 24 7F 7F 2-1 
61 DB- 2C 2D 09 Oi 

-'. 20 2" 24 24 
61EB- 2D 21 -■....; 

JO 2D 2D 24 24 24 ~C 
61FB- 'F 77 14 "'- 14 20 

20 24 24 2(4 SC 
■■-. 2E 2D •■- Ckj 4E 
• ■ '■ ' '27 
iB AD 2D 24 03 2C 
■ : fl OC ■ " 

24 27 
■ 74 

i . ., u 
... .... B 97 OD 

00 D3 'b 37 6D 1 1 



POT- 

GOSUB SIOl REM PR1 

REM PPDt.PnnMfc Pfttl 



320 GOSUB 3710 

330 REM CHOFGENENT DE LA TABLE 

DE FORME 
340 POKE 272,0: POKE 233, 
350 IF PEEK i 



70 



:457A) - 31 THEN \ 
CHR4 <4)"BL0AD ROBIN 



360 PR 1 1 

DESS.- 
170 HGR2 
390 5CALE= I 

390 FOR I - 1 TO 279 STEP 16 
400 IF I > 260 THEN GOTO 720 
410 HCDLDR- 3: DRAW 7 AT 1,100 
420 P - 30: D ■ 23: GOSUB 3700 
430 FOR Z - I TO 30: NEXT 
440 HCOLOR- O: DRAW 7 AT I.10O 
430 HCOLOR- 3: DRAW 8 AT 



460 FOR Z - 1 TO 30: NEXT 

470 P - 40:D - 23: GOSUB 370O 

480 HCOLOR= 0: DRAW 8 AT I * ' 

00 

490 HCDLOR- 3! DRAW 7 AT I + S 

300 FOR Z ' 1 TO 30: NEXT 

310 P » 30:0 - 20: GOSUB 3700 

520 HCOLOR- O: DRAW 7 AT I + E 



540 FOR Z - 1 TO 30: NEXT 
330 P - 60:D » 20: GOSUB 3700 
360 HCOLOR- 0: DRAW 6 AT I * 

370 5CALE= 2 

380 IF I - 33 THEN HCCLOR= 3 

10 AT 1,100 

590 IF I - 49 THEN HCOLOR- 3 

11 AT I, 100 

600 IF I = 63 THEN HCCLOR- 

12 AT 1,100 

610 IF I ■ Bl THEN HCOLOR- 

13 AT I, 100 

620 IF I - 97 THEN HCOLOR- 



APPLE II 



1O20 FDR I - 1 TO 5 
I 1030 PRINT D»t"OPEN SCORES" 

1040 PRINT D*I"REAQ SCORES" 

1050 FOR I - I TO 5 

1040 INPUT NM»< II ,07.(1) 

1070 NEXT I 

1090 PRINT D*"CLGSE SCORES" 

1090 HOME : VTAB 5: PRINT "VOULE 
Z-VDUS VOIR LES MEILLEURS SC 
ORES (0/M)?"l GET A*: IF A 
» < > "O" THEN 1150 

1100 FOR I = 1 TO 5 

1110 PRINT : PRINT : PRINT " 
"IHX(I),NH*(IJ 

1120 NEXT I 

1 1 30 ZX - 1 

1140 GET A* 

1150 FR - 0:N = 1 : SC = 1000: RETURN 

1160 HGR2 

1 170 HCOLOR" 3 

liao HPLOT 0,130 TO 180,130 TO 1 
80,145 TO 2O0.145 TO 200,130 
TD 279,130 

1190 .HPLOT 0,160 TO 60,160 TO 60 
, 1B0 TO 0.1B0 

1200 RETURN 

1210 HGR2 

1220 HCOLOR- 3 

1230 HPLOT 0.13O TO 70,130 TO 70 
.153 TO 130,133 TO 130.130 TO 
180,130 TO 180,143 TO 200,14 
3 TO 200,130 TO 279,130 

1240 HPLOT 0,160 TO 60,160 TO 60 
, 180 TD 0,180 

1230 RETURN 

1260 HGR2 

1270 HCDLOR- 3 

12BO HPLOT 0,130 TO 60, 130 TO 60 
, 143 TO 80, 143 TO 80, 130 TO 
100,130 TO 100,145 TO 120,14 
5 TO 120,130 TO 140.130 TD 1 
40,145 TO 160,145 TO 160,130 
TO 190.130 TO 180,143 TO 20 
0,143 TO 200,130 TO 279,130 

1290 HPLOT 0,160 TD 60,160 TO 60 



*» J 



,18' 



1 O. IS' 



660 
670 



100 
IF I - 129 THEN HCOLOR- 

15 AT I, 100 

IF I - 145 THEN HCOLOR" 

16 AT I, 100 

IF I - 161 THEN HCOLOR- 

17 AT 1,100 

IF 1 - 193 THEN HCOLOR- 

12 AT 1,100 

IF I = 209 THEN HCOLCR= 

11 AT 1,100 

IF I - 225 THEN HCOLOP- 

13 AT I, 100 

IF I - 241 THEN HCOLOR- 
17 AT I , 1 OO 
SCALE- 1 



DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 



710 NEXT ! 

Z20 GOSUB 3510 

EXPLICATIOl 



REM 



TO : 



STEP 4 



B40 EWII 



NEXT N 

SAO FOR N - 4 TO ig step 4 
B70 EW(Ni - 6 
R3'-> NEXT N 

■■■■". u : 

- IOOOiXB - 273 
•» I VC - 1 J XC - 63 
920 -f « 183 

'*" K.'l : HOME : PRINT "VOULEZ- 
UOUfl DFS EXPLICATIONS !0/N>- 

•i (iF.r a« i it-- m -'if rm n 

fiOTO 1010 
940 HOME : VTAB I: htas Si cRlnr 
■••.. ROBIN DFn F'OIT •■•'■ 
HINT : PRIC 



TURN 
1310 REM TEST SUR LA MORT DU JO 

UEUR 
1320 IF SA < > THEN 1470 
1330 IF T < > 1 THEN 1360 
1340 IF N - 19 OR N - 20 THEN HCOLOR- 

O: DRAW EW(N) AT X(N),120: MCOLOR 

3: ROT" 30: DRAW EW(N) AT XI 

N),13S: ROT- 0: GOTO 3010 
1330 GOTO 1400 
1360 IF T < > 2 AND T < > 5 AND 

T 1 > 8 AND T < > 10 THEN 

1390 
1370 IF N - B OR N - 9 OR N - 10 
OR N = 11 DR N - 12 OR M = 

13 THEN HCOLOR- O: DRAW EW ( 

N) AT X<N),I20: HCOLOR- 3: ROT" 

30: DRAW EW(N) AT X(N),130i ROT- 

O: GOTO 301O 
1375 IF N - 19 DR N - 20 THEN HCOLOR' 

Ol DRAW EW(NI AT XIN1.I20: HCDLOR. 

3: ROT- 30: DRAW EW(N) AT Xt 

N1.I38: ROT= 0: GOTO 3010 
1380 GOTO 1400 

IS90 IFN-7 0RN-8 0RN- 11 
DR N - 12 OR N = 13 OR N = 

16 08 N - 19 OR N - 20 THEN 
HCOLOR- 0: DRAW EW1N) AT XI 

N),120: HCOLOR- 3: ROT- 30: DRAW 

EW(N> AT XtN),13B: ROT- 0: GOTO 

3O10 
1400 IF F ( > 1 THEN 1460 
1410 IF XF - XCNJ OR XF - X(N) - 

10 THEN 3010 
1420 IF FR < 2 THEN 1460 
1430 IT XG - X<Nl Uft KG - XfN) - 

10 THEN 3010 
1440 IF FR •" 3 THEN 1460 
1430 IF XH - X(M) DR XH - X(N) - 

tO THEN 3010 
1460 RETURN 

1470 IF B' j I THEN 1310 
1480 IF XB - XtN) THEN 3010 
1490 IF XB * 10 ■ X (Nl THEN J010 



I . 
: ■ ISA - Ol 

I 
■ 

I ' •■■ IF S 211 THEN : 

I DRAM EM 
. 

n . i 

N • 20 
: DRAM 9 at XTi 1 



1970 N - N ♦ 1 

IBSm IF n 28 THEN N = 28 

1B90 HCOLOR= 3: DRAW 9 AT X (Ml , 1 

1900 (JO = 1 

1910 RETURN 

1920 HCOLOR- Ol DRAW 9 AT X (N) , 1 

03 
1930 N f N • 1 
1940 IF N > 28 THEN N = IB 
1930 HCOLOR- 3: DRAW EW(N1 AT X( 

Nl , 120 
1960 SA = 0:00 =• O: PDl.E - 1676G 

.0:S = 
1970 RETURN 

1980 IF L - 7 THEN 2040 
1990 HCOLOR- O: DRAW 9 AT X (N> . 1 

2000 L. - L * 1 

2010 IF VC = 1 THEN N - N + 1 
2020 IF VC - O THEN N - N - I 
2030 HCOLOR- 3: DRAW 9 AT X (Nl , 1 

05 
2040 SA = 1: POKE - 16368,0 
2030 RETURN 
206O HCOLOR- 0: DRAW 9 AT X<N),1 

03 
2070 HCOLOR- 3: DRAW EWIN1 AT X( 

N) , 120 
20B0 SA - 0:S - O: POKE - 16368, 

0:AX - O 
2090 L - O 
210O RETURN 

2110 IF S < > 136 THEN 2170 
2120 HCOLOR- O: DRAW EW(N> AT X( 

N1.120 
2130 N - N - 1 
2140 IF N < 1 THEN N - 1 
2130 HCOLOR- 3: DRAW EW(N1 AT X( 



2210 IF CO < > 1 THEN 2310 
2220 IF VC < > I THEN 2260 
2230 IF XC < > 133 THEN XC - XI 

* 10: GOTO 2280 
2240 IF XC - 133 THEN XC - XC - 

10:VC - 
2230 GOTO 2280 
2260 IF XC < > 63 THEN XC - XC 

10: GOTO 22B0 
2270 IF XC - 65 THEN XC - XC + 

0:VC - 1 
2280 HCOLOR- O: HPLOT 100,1 TO ! 

C - 10, 100 
2290 HPLOT 100,1 TO XC * 10.100 
,230O HCOLOR- 3: HPLOT 100,1 TO ! 



IF 



20 ■ 



-,,,.-, 



100 

2310 IF B < > 1 THEN 2360 
2320 XB - XB - 10: IF XB - 5 THEN 
HCOLOR— Of BRAW 1- AT 13,99i- 
HCDLDP- 3:XB - 275: DRAW 1 AT 
XB.93! GOTO 2360 
2330 HCOLOR- 0: DRAW 1 AT XB * 1 
0,93: HCOLOR- 3: DRAW 1 AT X 
B.93 
2340 IF XX = 1 THEN XX " O: OOTO 

2 360 
2350 IFFR ^ =4 THEN XX - 1 ! GOTO 

2320 
,2360 IF F ' > 1 THEN 2430 
2770 XF * XF - 10: IF XF - 5 THEN 
HCOLOR" O: DRAW 2 AT IS. 122 
: HCOLOR- 3:XF - 275: DRAW 2 
AT XF, 122: GOTO 2390 
23SO HCOLOR- O: DRAW 2 AT XF * 1 
0,122: HCOLOR" 3l DRAW 2 AT 
XF. 122 
2390 IF FR ■ 2 THEN 2430 
2400 Xfi - XF, -- 101 IF XG i" 1 ■■ 

HCOLOR* Oi DRAW 2 AT 19,132 
: HCOLOR" 3: XB = 275: DRAW 2 
AT XG. 1221 GOTO 2450 
ORE lit 
ILIST2401- 

2410 HCOLOR- O: DRAW 7 AT 1(1 • i 
O. 122: HCDLOR- 3: DRAW 2 OT 
XG, 122 
242>'i IF FR ■ 3 THEN 2430 
2430 XH - XH - 10: IF XH - l. Ii'i.n 
HCOLOR- O: DRAW 2 AT 15.122 
: HCOLOR^ 7: XH - 27?i: DRAW 2 
AT XH, 122: ROTO 2430 
2440 HCOLOR' Ot DRAW 2 AT XH ■* 1 
HCOLOR- 3: DRAW 2 Al 



• FR - 
IF I = 11 THEN 70 
IF 1 ■ I THEN 0O9UH t 160 
' IF T - 2 OR I - 3 OR T - B OR 

T ■ i" THEN D08U8 1210 
i IF T - 3 OR T = 4 OF- T - 6 OR 
T - 7 OR T - 9 THEN GDSUB I 
260 
• IF T - 10 THEN OOSUS 3440 
- on t gosub 2840,2980,2900.39 r, 

■ ' . ' . '".v. 2930,2960, 
1971 
' GOSUB 21B0: REM LECTURE DU 

CLAVIER 
J IF = I AND AX 1 THEN 

GOSUB 1730 
' If BB - 1 THEN GOSUB 2390 

> IF OO - 2 THEN GOSUB 1B60 *, 
) IF OO - 1 THEN GOSUB 1920 

I P - 75: D - 101 G0SU8 37O0 

> OOSUB 1S90 1 
J IF T - 10 THEN GOSUB 3640 

) GOSUB 2670: REM AFFICHAGE D 
U SCORE 1 



Pfl [N 



UOTl ■ ' ; ' 
. BELLI - 
l.-nriF . . . ,w.!' LI i RINCE if 
LU1 ti ND '.■ ■. i !' ■' v. 



1310 IF F-I 1 THEN 1570 

1320 IF PS ' > 1 THEN 1370 
1330 IF r - > 2 AND TO : 5 AND 

T 8 AND T ' > 10' THEN 

1360 
1340 IF N - 17 OR N - 20 THEN GOTO 

[OiO 
i -,:,■ ' re rURN 

1940 If- N ■ 7 OR N - 8 OR N - II 
OR N ■ 12 OR N - 13 OR N - 
16 OR N « 19 DR N - 70 THEN 
GOTO J010 

1970 RETURN 

1980 Rl TURN 

1990 REfl DEPLACEHENT DU JOUEUR 

1400 IP i>< - 1 THEN i ■""■ 

[610 II N - 28 THEN N * .'Hi RETURN 



I- !' 



i. in 



1620 II : ' 



149 THEN 1690 



PRINT " POUR CELA VOUS D 

181 0861 DEB COMMANDES 

SUIVANTE3: 

™ UN PAS EN AVANT 

< UN PAS 

EN APR I ERE 
■A' POUR ATTRAPER LA COROE 

PRINT -*B' POUR EVITER LES F 
t ECHES 01J FRANCH 

IR LES FOSSES. • 
i VTAB 22: HTAB 11: INVERSE i 
PRINT '■ — BONNE CHANCE — "l 
NORMAL : GET A» 
> D« - CHR« (41 



l 64 .hi OR Ol DRAM EM(N - 1. AT 

(IN i ■ . 120 

: ' i" in OR- 7: DRAW EW'li) Al r | 

Ni,120 

1640 POI i 16360,0 
1470 I 

[680 RE rURN 

1690 II- B f' '■ nu N [790 

1700 HCOLOR- Ol DRAW SWfN) Al " 

NJ.I20 

1710 HCOLOR- 3! DRAW 9 AT IINI.l 

1720 IF l{N> - XC AND CO - 1 IMEN 



, 1 22 



24 '0 III ! AND T < > 4 AND 

I (. AND T < ■ 7 AND-T < 

7 THEM 3910 
24B0 DRAW 3 AT 70,130 
2490 DRAW 3 AT I 10, I 50 
2300 DRAM J <",r ISO, i " 
2310 IF PS ' l tin n 2640 

2520 HCOLOR- Ol DRAW 3 AT 190,13 

2330 HCOLOR- 3: DRAW -. AT 190,11 

2540 IF T ■ | AND T :• 4 AND 

T ■ I, AND T ■ 7 AND T ' 

9 THEN 23B0 

2990 HCOLOR- Ol DRAW 3 AT 70,130 
: HCOLOR- 3: DRAW ) AT /'p.! I 



2400 HCOLOR- 3i DRAW 3 AT 190,13 
4 AND 



il 

■ THEN RETURN 
2480 HCOLOR- Ol DRAM Ai 
I , 1 75 
DRAM AB - 20 AT 9.173 
. ■■-■■■' DRAM AC • 20' AT 17, 

RAM Al) * 20 AT 23. 175 
INT 'SC f 10O00) 
. "., ic At, ■ o THEN SC - SC - AA 

■ ■ 
2740 AB » INT (SC / 10001 
2790 SC • SC - AT- ■ ■ 
2740 AC - INT (SC / IOO> 
2770 SC - SC - .-.- ■ 
27BO AD - INT (SI 
2790 SC - SC * AA • 10000 ■ Afc • 

IO00 • AC ■ I 
2800 HCOLOR- 3: DRAW AA • 20 AT 

1. 173 
2810 DRAW OB • 20 AT 9,173 
2820 ORAM AC * 20 AT 17.175 
2830 DRAW AD * 20 AT 23.175 
2840 DRAW 20 AT 7 7,173 
2B50 RETURN 
2960 REM VARIABLES PART ICUL IERE 

S A CHAOUE TABLEAU 
2970 F - !:B - 0:PI - 0:CO - OiXF 

- 273: XG - I45:XH - B3: RETURN 

28B0 F - 0:B - OiPI - OiCO - Is IF 

FR - 2 THEN FI = 1 
2890 RETURN 

2900 F - 0:8 - OsPI - l:CO - 0: RETURN 



2940 F - OiB - IsPI - 1:C0 - O: XB 

- 33 I RETURN 

2930 F - 1:8 - I: PI - 0:CJ ■ I : XB 

- 103iXF = I75:XG - 245: XH - 
233: RETURN 

2960 F - 1:B - IsPI - UCO - Ol XB 

- 105: XF - 175: XG - 243: XH - 
233: RETURN 

2970 F - 1:8 - IsPI - 1 : CO - I : XB 

- 105:XF - 173:XG - 243: XH - 
16S: RETURN 

2980 SC - SC + lOOO 

2990 N - 1 

3000 RETURN 

3010 REM MORT DU JOUEUR 

3020 HCOLOR- 3: DRAW 18 AT 130,3 

O: DRAW 11 AT 140.30: DRAW 1 

AT 130,30: DRAW 19 AT 160. 

30 
3030 REM MUSID1IE : PETITE MARCH 

E 
3040 P - 76: D - 120: GOSUB 3700: D 

- 90: GOSUB 3700: D - 30': GOSUB 
37001 P - 94:D - 120: GOSUB 3 
rOOtP ■ 76: GOSUB 370OjD - 2 
4G:P - 60: GOSUB 370OI D - 12 

0: GOSUB 3700 

3030 P - O 

3040 D - 120: GOSUB 3700 

3070 P - 76: GOSUB 3700: D - 90: QCfBUB 
lOlD ■ 30l GOSUB 37O0:P - 
84: D - 120: GOSUB 3700iP •■ 7 
6: GOSUB 3700lP - Fi":l> 240 

:¥■ - BOi BOSUB [700iD - 120: 
GOSUB 5700 I P - Ol BOSUB 170 


:riR.i p - ,v,t liO'JUU '.,'"■ ;>■ '.il:li 

90: GOSUB 3700:0 JOi BOSUB 

3700iD - 90:P - '6i QOSUB 
OOfD - 30l BOSUB 'OOlD ■ 90 
:P - 84: QOSUB """: I0| ' ":."!' 

37001 D - 240iP " 90: BOSUB ! 



root) 



60 



120 



'.'61 'i IF T - - 3 AND T 
T 6 AND T < 
> 9 THEN 2650 



-I"" dOSUB 3 700 tP - O: GOSUB 370 

01 
1110 P - 80iD • I20: GOSUB 3700tD 

- 90l G05UFJ 3700: D - 30: GOSUB 
I700IP - 68:D - 120: GOSUB 3 
-""': BOSUB I700iD = 240-P . 
84: 809UB 1700 
I " IT <T : HOME 
3130 FLASH : PRINT "VOTRE SCORE 

: ",SC 
' i ■'■ NTJRIiAL 

3130 IF SC < - OX(l) AND SC < - 
07.(2) AND SC ' - 0X(3) ANO 
SC < - 07.(4) AND SC < - 07. 
(3) THEN 71 70> 
3155 REM SI LE SCORE EST FARM I 'i 
LES CINO MEILt.rDIVn.llN I 'END 
EG I ST RE 
3160 ODSlir- S2I0 

'i '■■ i in- 1" - 16348,0 

3180 F'KINT "VGULEZ-VOUS REJOUEI 
■•(0/N)": 0E1 0» 

1190 IF A* ^ ■■D" THEN GOSUB 109 
Ol GOTO 70 

72<10 GOTO [360 

1210*80 - OXIDISE - 0XI2)i8f> - O 
X(3>i80 - 07.(4) i SH - fiX(S) 

1220 INPUT "voire NOM.S'IL VOUS 

PLAIT "INM« 
3230 IF SC :■ - SD THEN 0X(11 - 
90107.(2) - 5D:0X(3) - SClQXI 
41 * BPlOXO) - SHdNM»(5) - 
NM«(41 :NM»(4) - NM»I3MNM4<3 
) - NM»(2) INMK2) - NM»(1I:N 
M*!l) - NM«: GOTO 3290 
3240 IF SC > - SE THEN 0X11) - 
aClOX'2) - BCtOX(S) - SEiOXI 
41 - BFlDXIS) - S(1:NM»(31 - 
NM*!4):NM»(4) - NM»(3HNM«(3 
) - NMt(2) :NM»(2) - NM«: GOTO 
3200 
3250 IF SC > - SF THEN OX 1 1) - 
SDi07.(2) - 8EtDX(3) - SCiOXI 
41 - 9PlOX(31 - SG!NM»(5I - 
NM*(4) :NM»I4I - NM»(3) iNM»(3 
) - NMdi GOTO 3280 
3260 IF SC > - SG THEN 07.(1) - 
SDI07.I2) - SEi07.(31 - SFiOX.I 
4) - BClQX'9) - SG:NM«(3) - 
NM»(4)jNM*(4) - NM»: GOTO 32 
BO 
3270 IF SC > - SH THEN 07.(1) - 

BDiOX(2) - BStOXIS) - SFiOXi 

4) - B0i07.(5) - SC:NM4(31 - 

NM*! GOTO 32B0 
7280 FRIN1 I)»i "DEICTIT SCORES" 
32^0 PRINT D»l"OPEN SCORES" 
3300 PRINT D«l "WRITE SCORES" 
3310 FOR I - I TO 3 
3320 PRINT NM«(I)i PRINT OX ( I ) 

3330 next i Suite page 14 



BLACK JACK 



Ce jeu comporte 52 carles. Chaque carte a une valeur: 
J:VALET:2 Q:DAME:3 K:ROI:4 A:AS:1 1 

tes autres cartes ayant la valeur de leur chiffre. 
Le but du jeu est degaler ou d'approcher le plus possi- 
ble le chiffre 21, en additionnanl la valeur de chaque 
carte que Ion a fire. 

Le joueur et le Spectrum misent chacun leur tour, les 
mises sont egales. 

Celui qui egale ou approche le plus 21, gagne sa mise 
et celle de I'autre. 

En cas d"egalite de points ou depassement de 21 par 
les deux, chacun reprend sa mise. 
En cas de depassement de 21 par le Spectrum ou le 
joueur, la mise revient au joueur ou au spectrum. 

Frederic PRODEO 



Mode d'emptoi: 

Si te joueur pense que te total de ses carles est assez eleve, il ne 

retteniande plus de carte (n/o)? ; 

nrnon+enter, 

n:oui+enter 

Quand le credit (qui est de 100 au depart) est a 0, la parlie est 

terminee. 

Enfre chaque mise, on peut atterxJre ou appuyer sur )a louche enter 

pour "faire apparaltre la nouvelle donne. 




15 rem a 

2*5 PErt U: 

2»> OORDE9 * 

28 GO SUB 901 



29 POKE 23 
33 PR IMT O 
; ■■ 8LC1CI 



ppe:-£ntrtion It 

PPPCR 4.: CL3 
,10: GO 5UB 9195 



203 RESTORE 3*503 

20S FOR t -0 TO 5 

210 READ d . r, 

21s oeep d/3,n 



P.CK 



, CiT 



: ,7. 



ne autre p 

EN CO SUE 



T 1 ,20; ■■ CO 

<) ROI 



33 PLOT SO, 175: C 
U , -2* : DRRU -96 , 

40 > PRINT OT ,20; 
6; - I J) URLCT' 2-; R 
OME 3", OT 2 . 20; '• ( 
RT 3,20; " RS il" 

4.*J PLOT ,4.0: CRRU BS3 .0. PR I 
T RT 19 .0: "Mi se [Jl : " , RT 19, 17, " 
15* (5) : *;RT 13, 0; ■■ Credit I-J) :";« 
18 , 17; "Credi t rsi ■ " 

4.6 PRINT RT 5,0; INK 7; PRPBR 

2;""J";RT s,0;-O';RT 7,0,"u";firT 

,0; "S"; RT 9,0; " •' 

4.7 PRINT RT 11,0, INK 7, PfiPC 
3," ";RT 12,0; "M"; RT 13,0. ■'O"; 

T 14 ,0; "I- ; «T 15, 0; " " 

50 REM nunnnnnnaiiTttiaunnanxtnnn 

55 REM a TIRRGE DES CARTES 
60 REM osanBnnnnBHBanBnuttnnan 
65 LET «-(i^2): LET W-INT (i^ 



233 ir 



iNKtrv* t 

STOP 
TQ 230 



BttBBBB 



100S>PEM tt 

1010 REM O 

1011 LET t 

1012 PRINT 
0; BRIGHT 



1013 GO S 
1020 FOR 
1025 PRIN 



RFFICHRGE CRPTES (J) a 

J -0 : LET o-l 
RT 21,0; INK 5; PRPER 
1; "5PRCE pour tirlr U 

<CY|< >'■ " THEN GO TO 1 
B 1200 
-5 TO 



INK 7; 



PAPER 



GO SUB 1500: 



70 ir * t 

O SUB 2300 

75 > ir « - 

SUB 1000 

60 GO SUS 8S0O 

114 PAUSE 500: FOR f =4 TO 

RINT OT f , ■ ■ ■ 



1033 PLOT 8* 
U 0.40: DRRU 
1033 IF al»l 



NEXT 



.,96: DRRU 23.0: DRR 
-23,0: DRRU 0,-40 
OP al=2 THEN LET z= 

1040 IF HO OR al»4 THEN LET Z - 



1043 PRINT RT 6,0+1; PBPCR 7; IN 

k z;«i(aii;RT 8,0 + l;b*(»2J: BEEP 
. 1 ,RND->20 

1050 PRINT RT 21,0;" 



SPECTRUM 



sue 3000 

NT RT 7 , 29 



10S3 IF - -u RflO ( 
X »0: GO TO J5O0 
1037 IF e ' <V BMC' 



5. PRPEP 
* 322 THEN LET 
. :22 THEN LET 
PRPER 0, BRIGH 



GO 



GO TO 1015 
>•'©■■ AND 1* % I 
LET « = lj. G 



IBS 



1070 IF 



THEN LET 



12O0 LET a 1=INT 
2-IMT (RND*13) *1 

am ( loOii 1)112 
1213 FOR r-1 TO 
1220 IF Mfl eq T 



1303 
R 0; •' 
1505 



1509 

GO t 
1310 
O TO 
1511 > 



O 1550 
IF CJ<= 
1525 



1513 IF t J '. =C5 TM 

RND*C J ) 

1515 IF ms < 10 THE 

1525 LET m j =ras 

1530 LET cj=cj-»J 

15 A 5 LET CS =C1 -raft 

1550 GO SUB 39O0 

1363 "- 



BRIGHT 



N LET 
N LET 

LET M 
is LET 
GO TO 



C J > 10 

do t 



__00 IF 32=1 

2005 IF 32=2 

EOIO IF 32=3 

2Q1S IF a2=4 

20SO IF 32-S 

202S IF a2=6 

2O30 IF s2=7 



THEN LET 

TH£r; LET 

THEN LET 

THEN LET 

THEN LET 



rHjWi 



2O30 IF 32 = 11 

2055 IF 32=12 

2O60 IF a2-13 

2065 RETURN 

2500 REH nanus 

2303 REM 

2510 __ 



ITFICHRGE CARTES I 



2se5 if 

J : RETUR 
2666 IF 



y »0 
257 



7; PRPER 

T p*3,48 DPfiU 23, O DRR 
DRRU -23,0: DRRU 0,-40 
31=1 OP 41=2 THEN LET Z= 

»l=t3 OR al*t THEN LET Z- 

NT RT 12,p»l; INK Z. FRF 
|lJ, t RT 14,R + l;b|t*8) : BE 

INK 2, POPE 
O THEN LET y-l 
J >21 THEN LET 
>21 THEN LET y 



■2 1 THEN 



2575 IF t j 

£ -C .* OO 

2360 IF 

RND 1. J ' 

1000 

2395 IF 

PMO \ j ' n 



6500 IF K <v T 

LET tue L 

CO TO 6313 

6303 > 



-16 OR 
" 2520 






OO Sue 696 



GO SUB 
SSI© IF 

LET H ,. 
GO TO 
6515 IF c 



9200 



N LET ■■ , = • j* 
= 'S *»S LET 
O TO 6515 
..N LET Cj-Cj- 
ET »»=.© OO 5U 

RND >I < -0 THEN 



200 

352© IF C j ( -O 
5E 200 CLS : 
ER 2; INK 6; 'V 

O TO 20O 
«530 RETURN 
69O0 PRINT RT 
"; RT 19, 9, * j 



s;M' 



,rt ie,a>, 4nk 



9O03 cent 

9010 >ORT( 
6, 16 
9015 DRTf 

sa ,2* 

9B20 DRTf 
24,60 
9025 DRT( 
4,60 
OO30 DRTf 



POKE 



.» 



-J- . 



0,66,238,25* ,254, 12* .5 
2* ,60 , 126,2 55 , 2SS , 12 6 , 
24 .60. 126.233,208,81*. 
60.60,24,219,233.219,2 
62 ,65 , 1 ,62,64 ,64. ,64 , 12 



9036 CflTfl 30,33 



0*0 C-RTR 



33 , 1, 1* , 1 , 1 ,33 ,O0 

. ^a,ae,36,66,2ss,*,* 

26 . 6* , 6* , 124 .2,2,2,1 



9043 

9O50 DRTR 62,65,6* .94,97,65,65,6 
BOSS DRTR 255,2,4 , 62 , 16 , 32 , 64 , 12 
LS« , 130, IS 



90O0 OATH 124,130,136 

. 130 . 124 

9065 DRTR 62 .65,63,62 

9O70>DRTR 158,161,161 

1 , 161 , 1SB 

907C DRTR 30, 4, 4, X , *, 4, 132, 120 

9060 DRTR 60,66,66 ,66 ,62 ,96 , 124 



161 , 161 , 16 



128 



9065 DRTR 239 , 72 , 60 , 96 . 60 . 72 , 66 , 

231 

909O ORTR 16,40,68,130.254,130,1 

30 , 13Q 

9100 DIM a* 

9105 DIM bt 

9110 LET a* 

9113 LET as 

9120 LET as 

9125 LET a« 

9130 LET b| 

9135 LET b* 

9140 LET t>» 

9143 LET OS 

9150 LET Pf 



IOI -" 
11) -■* 
18) -" 



9198 LET 

92O0 LET 

9203 DIH 

9210 LET 

9213 FOR 



9999 SR 



f-1 TO 16: LET * ( f ) .0 : 



,6. 1,3, .3, IS 



-black -J*C *• 



LABY 3D 



Vous venez d'etre jet6 darts un labyrinthe a cote du- 
quel celui de Dedale est d'une simplicrte enfantine. 
Vous disposez d'une heure pour trouver la cle et la 
sortie, sincn... 

Enfin, prenez votre courage a deux mains et vos 
jambes a votre cou pour parcourir quelques unes des 
500 pieces que compte la construction. 
Mode d'emptoi (complet) dans le programme. 



TO 7 



10 'TNITIlHLISfiTICN 

20 GOTO 1000 

30 *TPftITEHEMT rj'UME PIECE 

40 &0 TO 2900 

H 'DE88IN I^OIIE PUCE 

&0 GOTO 3000 

70 'TPfllTEHENT Vt L'ftCTIOK 

S0 GOTO 4003 

90 TIM DU JEU 

100 VIE=VIE-1 

195 IF VIE "0 THEM 7000 

197 IF /,'(, uMb t = n „M0 Z=l THEN 120 

110 tOTO 30 

1£0 'TPAITEHEMT VZ FIM 

125 IF CLE-0 THEM LOCATE i.2*.0:PP!NT 

OUP 30PTIP, Il FnUT rBOUVEH l« 'aE ": 

= l:F0P 1-1 TO 790:HE'/T If GOTO HO 

130 GOTO 5000 

140 EMD 

SCPEEM 6.9.fl:CLEAP ,,5 



1910 



-- rp; 



:CLS 



1929 LOCATE 9,6,9 

1030 PPIMT ■LrBYRIBTHE' 

1040 LOCATE 7,12,0 

1059 PRINT -2 ['IKENSJOMS-iATTPe 0,0 

1060 PLfiV •03T3L4eHiL^e i ii.H^ :■■■■ : ti 

40MIL2eS]LAL345IL405OO^r?L4OrtILSOSIL"L34 

SIL403004- 

1970 Din L*' 19, 10,5' 

1080 DIM Pf<6> 

1990 Z=5:Y-JiZ»l!D-i:VIE=36O0:CLE«0 

1091 locate 10,19,1: input -m0uvelle p»pt 
ie-;rep« 

1092 IF REP*<'*tr THEN 1099 

1093 LOCATE 8,22.«:PPIMT "P0 r i I T [ 0NNE Z L« 
CfiSSETTE'iLOCftTC 7,24,o:PPIMT 'PUIS T«P 

E2 SUR UKE T0UCHE*; 

1094 FFI-IMPUTS (I) 

1095 0PEM "I-ftl.-CASSJPOS' 

1096 INPUT •1,X,Y,2,D,VIE,CLE.K1,K2.*3.T 
UT2,T3 



Ulian JOUAUD 




1090 CLOSE tliGOTO 1100 

1699 LOCATE 13.22, I: INPUT 'UM M0HEPE"!AL 

EA:F0P 1 = 1 TO ALEAiKl>INT<RN0<l)lie>«-IIK 

2=IMT'PMCKI>»10)*l:ta=INT(RMD<)>»5>»l:NE 

XT l:Tl=IMT (PMD' 1 >»I0,.| :T2=IMT<RMD<1 )• 

I0>*l:T3-INT'PMD'l .»5.'-] 

1100 FOR K=l TO 5 

1116 FOR J=l TO 10 

1120 FOR 1=1 TO 10 

1130 READ L*<I, J,K> 

1140 NE/T I 

1150 NEXT J 

1168 NEXT K 

1180 DEFGRt-0>»I6.56,124,i6.1fc.56, 16. 16 

1190 DEFGRI'I >«0.0.32. 109.255. 108,32,0 

1280 DEFGRI<2>=8, 8,28,3,8,62,28,8 

1210 DEFCRI<3>*8. 4. 38,255,38,4,0,9 

1220 DEFGRt<4>=126,66. 126.24,38,24,28,2* 

1236 GOTO 46 

2806 ftl-L»<X,Y,Z>: J-l 

2918 FOP 1-D TO 4 

3020 PKJ>-WID«'Af. I. 1 

2830 J-J»l 

2040 NEXT I 

2036 IF D-l THEM 2108 

2860 FOR 1-1 TO D-I 

2070 fi' 1 ■ n ; r ■ > ,-: . 1,1 

2080 J-J*l 

2090 NEXT I 

2100 PI'3/"HI0I'A«.5,1 1 

2119 PX6^-nibf <«!.< , 

2120 GOTO 60 
3000 CLS 

3018 LINE '9,9 1 (79,49 
3020 LINE <3I9,0'-<239,49> 
3030 LIME <8i I99W79, 149' 
3040 LINE <3I9, 199'-'23'«, : ■* - 
3050 BOX '79,49>-<239, 149) 

3069 IT N(l)*'l' THEM LIME <19,187)-<19 
,54)tLIME-'39,7*):LIME-'59, 161) 

3070 IF P»(2)-*I* THEM LINE <I29,!49)-<I 



29,74):LINE -«: 1 97. 74 ) : L INE-( 1 87, 149> 

3886 IF PI(3>=*1* THEN LIME (259, 161 >-<2 

39,74). -LIME-(299,54):LINE-(299,187> 

3990 IF P!(S)*-t- THEN LINE CII9jlI>-(19 

9, I 1 )fLINE-<187.37):LIME-< 129. 37 > : LIME-( 

119,1I):LINE ' 1 1 9, 1 l)-( 1 19, I 40) : L IME '12 

0,11)-(120,148) 

3188 IF P*(6)*'l" THEM LINE <I29,161)-(I 

89,16I):LIME-(199,187>:LINE-<I19, 187): LI 

NE-(129,I6I> 

3162 IF X=K1 AMD Y"K2 AND Z«K3 AND CLE"0 

THEM LOCATE 14,5,0:PRIMT "VOICI LA CLE' 

ELSE 3106 
3164 ATTRB 9, 1 : LOCATE 1 3. 1 Z, 0: PR 1 NTGRf < 4 ) 
;:ATTPB9,6:CLE=1!PLAV •A1L46BIL20SILAL34 
SIL30SO" 

3106 IF X=T1 8ND Y=T2 AND Z-T3 THEN FOR 
IM TO 586:SCPEEN ,, 1 : SCREEN ,,8!MEXT:VI 
E *VIE t968:X-IMT (PMD( 1 >•! 8)*1 : Y= IMT ' PM 
D(1>»18>»1:Z*IKT <PHD(1)»5)*J:C0T0 2888 
3118 LOCATE 2.24,8 

3120 PRINT -BOUSSOLE : -;CR«(D-1>J 
3136 GOTO 86 
4080 LOCATE 20,24.O:PRINT 'C'lRECTIOM 



llll'j 



THEM 4120 

1- THEM 4200 

I* THEM 4300 

I" THEN 4400 

1" THEM Z»2*H 

1" THEM Z = Z-U 



4016 LOCATE 35, I,0!PRIMT USING 
E:L0CflTE 30,24.1 

4815 FOR 1 = 1 TO 329JMEXT UCflNKE 
Zt=-' THEN 4508 

4017 IF ASCC*> = 39ThEN 5100 
4626 IF C«=*G- AND Pl(l)""l 
4838 IF Ci="A _ AND P»(2>"*1 
4846 IF Ct= m b" AND Pi(3>« - I 
4038 IF C» = -P- AND P f ' -1 > = - 1 
4060 IF C» B "M- AND Pf<5>* - 1 
GOTO 109 

4070 IF Ci-'B- AND 
GOTO 186 
4875 IF A$C'Cf)=13 THEM 4688 

4088 LOCATE 20. 24, 6: PR 1 NT "ACTIOM IHPOSS 

IBLE*;:VIE-VIE-1 

4090 FOR I»l TO 7O0! NEXT I 

4110 COTO 4999 

4129 IF D"l THEM D-4 ! X-X- 1 : COTO 100 

4138 IF D=2 THEM D* 1 f Y-Y* 1 : GOTO 100 

4140 IF D-3 THEM D"2: V.'/.' 1 s GOTO 100 

4150 IF D"4 THEN D-3:Y«Y-I 

4160 GOTO 100 

4200 IF D=l THEM Y=Y*1:G0T0 180 

4210 IF D = 2 THEM Z»»l:G0T0 100 

4220 IF D-3 THEM Y=Y-l:G0T0 100 

4230 IF D«4 THEN /«>:-! 

4248 GOTO 108 

4300 IF D«l THEM D-2>X«X'l :G0T0 100 

-1718 IF D=2 THEN D-3: Y-Y- 1 : COTO 100 

4320 IF D-3 THEM D-4 i X-X- 1 : COTO 196 

4330 IF D«4 THEM D«l:Y»Y.l 

4340 GOTO 100 

4480 IF D-l THEM D«3 

4410 IT D-2 THEM D-4 

4420 IF D-3 THEM 0*1 

4430 If D-4 THEM D-2 

4440 GOTO 100 

4300 V1E-VIE-1 

4310 GOTO 4000 

4600 CLS:L0CATE 2,5,0:PR1NT 'VOUS FAITES 

LE POINT EN CIMO HINUTES-:VIE-VIE -300 
46I0 LOCATE 5,10,8:PP1MT -VOTRE POSITION 

I RPOrOMDEUP 1"JY 
4620 LOCATE 22. 1 2. 6: PR1 Mt -LAPCEUR : - 

4630 LOCATE 22, 14,6lPPIMT "ETACE 1" 

;z 

4635 IF CLE-1 THEM LOCATE 9,18,0:PPIMT ■ 
VOUS AVEZ LA CLE '-:C0T0 4678 
4640 LOCATE 2,18,0:PRINT *LA CLE 't 
4658 IF K3-Z THEN PRINT "SE TROUVE ■; EL 
SE PPIMT -ME SE TROUVE PAS *» 



-l:G0T0 
-liGOTO 
•HGOTO 



4666 PRINT *A CET ETACE." 

4678 LOCATE 18, 22, 0: PP IMT "TAPEZ SUR UNE 

TOUCHE"! : Ai^INPUT*(l ) 
4689 GOTO 188 

5888 PLAY ■L40NIL20S1LAL34S IL38S0" 
5019 CLSiLOCATE 10,8.8 
5820 PRINT "VOUS ETES EMFIN S0PT1* 
5030 PRINTiPRIMT ■ IL Y EN A GUI Y SO 
MT ENCORE* 
5040 COTO 140 

5188 PPINT:PRIMT:PRIMT- POSITIOMN 

EZ LA CASSETTE APPUYEZ SUP LA T 

OUCHE ENREC DU MAGNETO PUIS TAPEZ 

SUR UNE TOUCHE* 
5116 FF«=INPUT*(1> 
5120 OPEN *0*,tl,*CASS:POS" 
5130 PRINT •I,X,Y,Z,D,VIE.CLE,K1.K2.K3,T 
1,T2, T3 

5140 CLOSEiGOTO 140 

6000 DATA01 1088. Ill OHO. 101600, 110088,010 
889,911189, IfiieOH. 181009. I010O9. 110098 
6810 PATA81 0109.01 II OO. 1 10800.001 100. 1 10 
100,900106,001000, 101009.101900,100110 
6020 DATA618I80. 806180,81 1 II 



,11 



11 ] (i 



811' 



,1118 



,1101 



ftp 3D ['ATABOI 100, 1 1 1080, 1 10101 
880,160109,901100. 1081 00. 000 11 0,01 01 86 

6 040 DATAD1 1000. 100100. 000 I 00. 0100 | I', 001 

188, 1 10099,91 1000. 1 18000.01 1000. 166160 
6056 DATA81O19O.01 1000. 1 00000, 9 t 1 09, fll 1 
000. 181 188, 1 IOIO0.000 100. 000 I Of). 010008 
6660 DATA010100,001106, I I 1068. 168188,080 



0118' 



, 101 I 



. 10101 



610 



, 1 1811 



60 70 DOTA001 100. 1 IOOOh.h: : loo. HMOO0. | 00 
608,818108,01 1800. 101008. 1 10006.816186 
6686 DATA0 10800. 801 100. 109160.61 I860. 161 
888. 186168,616108.01 1000, 169106. 0101 I" 
6690 DATA801 100. 101010. I0I800. LOO 100. 001 
066, 108016.880100.001 100. 10I000. 10" I 00 
6186 DATA8I 1000. 1 1 0000. OO 1 000. 101000. 101 
868, 181066. 101800. 1 10000.001066. 118686 

61 19 DATA866I 18.818106.001018. 181 000, Iflfl 
8 18. 8! 8868,98101 8. 111188,186960.019101 

6120 DATA01 1660. 100186,001860. 1 1 1000. I 1 1 
linn. 1 M 100. 1 0*1000.010100. 01 num.. ill .1 1 •'" 
6130 DAT 8818168. 81 1688. 186868.618166.088 

101!, 010100. OIH.UIit. iMl'l I'M. 1 11 - "I*' 

6140 DAT 0616 186, 091 I0B. 101808.111181,181 

0O0. 1 1 1 100. lOOlllO.llOl 1HO. I 1 1 IH.II..O 

6138 DAT A68 1166. 111008. 1 60606. I I OO. HI .1 
886.888188.681818. I 10000.888166.610961) 

6166 DAT 061 1O09. 180180.01 1609. 1 10100,081 

100. 101000. 1 100 19. 01.111..' 1 1. 1 IPl.io 

6178 PATA010190.00I868. 1 10 loo. on I 1 1 I" 

1-.OM..1] ; 1. ! (..linn, mil loo. I 1 1 '. 1 "o 

6188 D6TA801 108. 110086,081 108. 1 10010,011 

mo. 101 1 no. 1 iiimio. in 10.10, 1.1.11.1... hi mini 

,. 1-1.1 [..hH-.i1 1 000. in 1 1 111 . [11.1 on 1.1. »m.n 

100.0 0001 1 .000100.00 1 1H0. 101009, I 011 100 

6200 DAT A00 1806. 1 11006,161000, 110060,601 



. 1010 



. 1010 



. 1010 



1 . I 1 1 • 



.-..:■ 111 I'.. r..010HH| . Il[. 1111, ..111 I . 01O1OH. nil. 

801.010106.001901. 11 9090. 010000. OIOI0.I 
6228 D8TA68I 109. 1 00 1 00, I 1 90, 1 81 00. O0.1 
100. 100100,011088. 10 1100. 108190,010180 
.-.,! HI f..,l 1 -.0io0[l1. 001.100. 1 1010.1.01010(1... HI 

010, 161888, 180106.0! 1988. 161881, 180100 
6240 D0TA01 1108, 101088, 1 18180,881 180, 101 
068, 111880. 110000,010108,011000,110068 

.,. •..-. [-.-.I..0I 1 109. I 100.111.010100.01 100O. 1.1H 
0.111 .010] 1111111.11 .1.11.11 10100 1 10 

6260 DATO06O10O, 010109. 918180,010180,01 1 

in. linn. nam, 11. noun H I Oil. 1 I 0, 

6270 DAIA81 1000. II 01 90, 616 I 86, 816 I eu.991 
188. 101000, 1 11008, 1OI00O, 110006,010106 
6280 D0TA619169. 810180,860186.880101. .. I I 

Suite page \2 



DRAGON'S CUBES 



Voici une nouvelle version dun jeu desormais classi- 
que. Irez-vous plus vile a taper les rotations au clavier 
qua manipuler le cube directemenf 

Bruno CARTON 

■ 
Le Cube ul on graphique pendant que la ma- 

nl alors represen- 
tees los - • -.men du cube (P 

isi que le message "rota- 
te de taper le code de la rotation a effectuer 
^odesducube: 
Toutes les commandos fonctiorr' ■■ [Won dc la louche 

Enter a ^exception de la commando X qui permet de stopper (exe- 
cution du programme >l faut repondre O ou N. puts appuyer sur 

i) A- designe la I toumer la face amere en amenant 

le haut vers la face gauct n ■ 

1 sens inverse de ■'■■ 
3) B: designe la (ace du bas Fait tourner la face du bas en ame- 
nant ia partie avant vers ta <ace droite (f«j 2) 

la face du bas en sens inverse de B.(fig 2) 

5) 0: des-vpe :a 'ace droite du cube. Fait tourner la face droite en 

■■ naut de la face drc-ite vers i arriera.{ftg.3) 

6) - Fait tourner la lace droite en sens inverse de D.(fig 3] 

7) F: des gne la face avant du cube Fait tourner cette (ace en ame- 
nant le haut vers la drone 

91 - F fait ;oufner la (ace avant du cube en sens inverse de 
F-tfig. 4) 

9) G: designe la (ace gauche du cube. Fail tourner la face gauche 
vers la (ace avant (fig 5) 



79 CLEAR 

. ■ 
99 REAP ■ ■ 
H ■ 
139 NEXT I SOSUe 2790 

■■■-; 

130 CL - 

■■ ■ ■ 

.-■r (46 >*CHR* 148 » 
% I i." -. — * : 18 ■■ .-v 140>+CHR* MI ■ 

| ..: » : i . ...,, ;.r-,.r^v 13 . ..rut,/ |43+C<0,13 ■ -CMP*' |42+CX8j19>>+CHR*C1294 
%$&?ZS£Z i 4 >^^-'^"*'-W'4v. :■.,... , MCH R* 129*CC0.17)HCHR« I43-KX0, 17» 
■ -,_,.r. e, |7 . >*CHR*< I29*C<0,8>>+CHR»< 133) 

-i ■_.,-_ ... CHR» ■12?+C'1.I5>>*CMP* ni*CM.I^>^CHPi'l30*C<l,I3>HCHR«ri29. 
2hmm£ rii-' r : l c r.^'' 1 ^ 1 - 1 IS»#afW«WXl ir-<MP»M?l.C<l. 7» 
•CNR* ■ ■■■ I -CMP«' 128-chp*< M3*C»-8>>*CHP«< 133) 

188W- «r-« :..:-r^t i. :■--->-« :■...., i ,- . ,»cmpi' ue*c t i^.,r M p* M?e .CHR6CH 

RS&i^^SSL'lSSJ 1C ' , * CHP *''^ , *™«O40*r M , 1 ^>.rKP*M49*C<t.l7>)*CHP»' 

-CHP*- t?8-C'0.7)>*CHP*' I43*C(0.8)>*CHPv 133) 



10| - G lait lourner la face gauche du cube en sens inverse de 
G (f-g 5) 

1 1 ) H designe la face du haut Fait lourner cette face de maniere a 
amener la lace droite vers I avant (fig 6) 

12) - H: fail tourner la face du haut en sens inverse de H (fig 6) 

13) C Designe les centres situes en haut. a droite. en bas et a 
gauche Fait tourner ces centres vets la droite (lig.7) 

14) - C: Fait tourner les centres en sens inverse de C (fig 7) 

15) M: designe les milieux du cube. Fait tourner ces milieux vers la 
droite (dg8) 

16) - M: lait lourner les milieux en sens inverse de M (fig B] 

17) V: designe les centres verticaux. Fait tourner ces centres verti- 
caux vers le haut.(lig.9) 

18) - V: Fail tourner les centres verticaux en sens inverse de 
V(da9) 

19) R: nefteclue pas de rotation de 'ace. mais permet I'examen du 
cube en le retournant.(fig.10) 

20) - R: identique a R, mais en sens inverse (fig.10) 

21) S Comme R n'effectue pas de rotation, sert uniquement a exa- 
miner le cube.ffig.l t) / 

22) - S: identique a S mais en sens inverse. (fig. 1 1) 

23) T: Cette rotation esl egalement une rotation d'examen du cube. 
Eire le (ait pivoter dans le sens des aiguilles dune montre.(fig.12) 

24) - T: Fait la meme chose que T mais en sens inverse. (lig.12) 
25| X: II faut utiliser cette touche pour arreter I'execution du pro- 
gramme. Dans ce cas un message s'affiche: "voulez- vous quitter 
(O N)".Cela permel a I'utilisateur de continuer son dur travail sil a 
appuye par megarde sur la touche X 

A la tin de (execution, le lemps mis par I'utilisateur est alors affiche. 
Record actuel 9mn 56s! Qui dit mieux? 



CHP*' |40HCHR*C 140j*r;HR*<: 14 



>*CHP 



\*} Ef-CHP*' 142 -..CMP.' 129*C2. 1V>+CHP»' I49*<X2,I3»+CHRM 142*C<2. 13>»CHR»< 129* 

™?, 1 ^-^' 47 * C ' 2 ' 16>, * ,:HPV142 * r ''' 2!6, '*' :HR *' I2 ^^2.17^*CHP*<l43*C<2,17)) 
1 - ' >*CHPS< 1 33*C< 9,7) *CHP»< 1 3B*C< 9 . 7 > )*CHrV 1 36+C 



•*CHP*:i2?+Cf 9-6'' 



)>*CHP*f 133*D 



)>*CHR»f 136*C(0.7>>*CHR»< 135*0(1 



)>+CH 



♦CHR«' 142+0(2,17); 

200 E*-E*-CHP«<I33> 

219 P^STPIHCVlO.l?^) 

220 F«-P«»CHR»< 143+C'0,f 
R«133> 

^,?** C ??!' 12e '*' :HP » / ' 4 ^*^'«-? , >*CHP*':i43*C<9.3>>*CMP»M2S'*CMP*' 143+C< 0. 10 >)»C 
MW143*C'g.I«. HOttM 129MCMP*' M3.C9.I1 ■ .t.hpv I43+C 9- 1 1 J M^CHROuS >+CHR* 14 
3*r;'0.6>>*CHO*'|29>.CMP»M30*C'1.7>.*CMP«<M3.C', 1.3)>.|-HP«<133) 

,:49 M»«CHP«< 123 •*CHP*< I43-KX0,9))*CHP4< !4 3*C<9,9>)*CHR«' 12R>*CHP«< 143*Ct 0. I0>>*C 
HR* I43+C0.19' "CHP«' 129>*rHP»< 143+C/0. 11 >-"CHPV |.|>C'H. II >>K»W I2a>*rnp*' 13 
fi*r , (j. ,5 , HO»W< 1 33*C 1.7? HOW. 13a-»CC 1,7? >+CHR*< 1 3«*C 1 . 3 ) ?*CMP«c 133 > 
9 :»-P»»CHR«< 135+C< 1.6>>*CHP«133*CCI,7))»CHp«< 136*C< 1.7>)*CHR»< I33+C< 2.8>>*CH 

S0 ^•-CH»«<129)*CMP«M43*C'1.9>>»CHP«rM3*i:<i,?>>.CHR*'I2e>»CHP*<143»C<l,10)>*C 
►*^H3*C'I.I9>'*CMP*' 128HCWK 143*0(1,11 )HCHR«< M3*CU - 1 1> >THP*< 128>*-CHW<14 

■- >>*CMP*' i29>*rHP»' l?9*r 1 '2,7>„r; H p V 143+C 2. a ' ^rHPV 133 > 
270 l f t-CH«'fl28i.CMP»':i43+CCi,9))*CHR»< 143*C< 1.9>i+CHR«' !28)*CHP»< M3«C< 1.18JHC 
WK143*ai,ie>>*CHm(128HO«Ca< M3tCM.lt J^CHPtTM^+Cf l.in)*CHR»<I28)+CMR«|3 
6*0 i.«>>*CHR«' I33-KX2,7>HCHR«( 138*r' 2. 7 v, + CHP»' 1 36*C 2. 3 ^*rHPt< 13?) 
288 L«-P»*CMPV 13S4C(2>6»»OAW 133+C^ 2. r^tCHP*-: 136«C(2.7 )>.rHP»< 135 > 
298 MS-CMP*-: 128>+CMP»' M3*C'2.9'>*CMP«' |434C(2,9»KHtfC129>*CW*< 143+CT2. 19))*C 
►«»'143*C2. |0)>*O«*< 129>*CHP*:i43*C<2. 1I>HCHP«< H3*C<2. 11 >>*CMP«r 128)*rHR«' 14 
3«Cf2,6>>»CMR»' I28HCHRV I35> 

309 N»-CHP«M28>'CWP«'143*C:2,9>^CH*?»r M3«C 2.9. XHP»< 128 >*CHRV143*a 2.18) HC 
►«nW143*C'2.19>--r;HP»' 128 -Cf**: 143*C<2. 1 1 >>*CHR»' l43*Cf.2. 11 ' )'CMP*; 128 )»CHPt< 13 
5»C2.6>>»CMP»' 135' 

310 0«-p».CMR»'135) 

320 CL5 IF TinEP>59000 THEN Tt-Tl*rtMEP TIMER-9 
330 PPIja»52.R*; 
340 PPIMTI»83.e«. 
350 PPIMT*114,C». 
360 PflIKT0145.pt. 

379 PWIMT9176.E*. 

380 PP1NT0288.F*. 
399 PPINT»249,r;», 
490 PPIin;?272.Mt. 
410 PPIHT»394.I«. 

429 PBIHT?33e.Jt, 

430 PPIHTf»2e8.Kt 
448 PR1MT'>499.L«. 
450 PflIHT9432.ru 1 
4C9 PPI1UI»4^4.I4«. 

479 PP[NI»4?6.rj». 

489 PPMiT*ie9.-P0Tftri0H ". CO^'JB 2550 

490 Z«-tMKEY» IF 2»»"" fMF.ll 4?9 
500 IF Z»---" THEII L-'CC'I ELSE L-l CC-9 
519 IF CC-fl THEM 539 

529 Z»-INVEY« IF 2t-~- THEM 520 

530 FOP 0-1 TO L 

540 IF RSC'Zt^91 THEN r>i ftSC .'* >-81 rjyjw «60,789.880 
550 MEXT VK-0 
560 IF !•'"(*■ THEN XX-1 
579 IF Zt-"B" THEM SO>2 

1 ir ,:« -!■- rut M ■ ■ 

' THEM XX"4 
THEN XX-5 
THEM XX-6 
THEH >CX-7 
THEII XX»9 
THEH XX-9 
THEH CO^'je 2510 
Ol TMEH OH XX CO^JB 1700.1759,1309.1850.1900. 
1950.3370.3409.3480 EL^E 

N m yfi 2OO0-2950. 2100- 2159. 2280, 2250. 3300. 33*^9. 3440 1189 FOP j-Tl fo'n*2 

IW 1199 K-K.l 

POOP LH ROmTION P tti 1210 HKXT J.I 

1220 FOff 1-0 TO 2 

1230 FOP J-0 TO 2 

1240 C< I, J*T1 >»Cr I.J+T2) 

1250 C< I, J*T2>-C t. 1*13 I 

1260 C< I. J*T3>-C'I, J»T4i 

1270 HEXT J, I 

1280 K— 1 

1290 FOP 1-0 TO 2 

I300 FOfl >T4 TO T4.2 

1310 K-K*l 

1320 C-:i.J)-nVK> 

I330 HEXT J,t 

1340 PETUPH 

1350 PEH 





590 IF 2f 

6«) IF 2*-"C- 

619 IF 2*-"H" 

SI2 IF ?§-■ 

€M if za»-n- 
€16 if z»-- 

629 IF 20.-X" 



659 REM 

■ -•■■ MM tl 

€70 PEM 

■it I - F. 11 ,,n- in .. (, 

6?n r-n p-i C03ij( .. ,, 

r.?-l2 T3-3 T4-6 

719 CQ5UB 1110 

720 T-3 P-n GOSH 

■' ' '■ '. 160 

■■■ ..-,, 

■■ ,,.>'ir|- :,,. 

'68 11 iiipii 

. : ■ PGM 

9 tic mi [ ijr.ip i.n pnir.Tlnii -. nt 

. « M M 

: <"i t .. I- i. !,.(■ 11. .,..(, 



810 T>12 P=l r.osi_rB 969 
828 T1"9'T2*3 T3-8-T4»l5. 

ue 1148 

849 T-3:R"8 COSUB 960COSUB 968 

: -,,. I B CO 11F-: K8 CO '"■ '■ 8 
360 RETURN 
B70 REH 

:■ rem in rm.ip in PnTftrinw T tt« 
ff>0 PEI1 
?nn '^15 p-n COSUB ?*^0 

919 T=3 R-l rjyyjB 9,50 

920 Tl-6 T2-9 T3-I2 T4-9 

939 COSUB 1140 

940 PETUPH 
950 PEM 

968 PEM ttf ROTATION r>'Ut IE FACE *t 
970 PEM 
980 Y'-\ 

990 FOR 1-9 m 2 
1090 FOP >T TO T»2 

1019 IF 1-1 AMP >T»I TMEH HEMT J 

1020 K-K*l 
1030 M'K>-C I.J> 

1949 HEXT J, I 

1950 K— 1 
1969 FOP 1-0 TO 2 
1979 FOP >t TO T*2 
1880 IE 1-1 RHP >rt| THEN HEXT J 
1098 K-K«1 
1190 (X|, JMKUR/K » 



1390 
1499 
1419 
1420 
1430 
1449 
1450 
1469 
1470 
. 1480 
1490 
1500 
1519 
1320 
1330 
1540 
1338 
1369 
1370 
1380 
1590 
1698 
1619 
1620 
1630 
1640 

I .-.•.!> 

1660 

1670 



1710 
1720 
1730 
1740 
1730 
1760 
1770 
1789 
1799 



1920 
1839 
1840 
I850 
1860 
1870 
1880 
1899 



1928 

[ ■.-!-. 

1949 
1950 

I H II 

1^70 



I ET 8 ttt 



: i,n f-'f TMI.-M 
1130 PEM 
1 1 m pr.d in 
1150 PEM 
1160 K— 1 
I 1 70 FOR i-e 



TO 2 



2018 

2030 

.■.MM 

TPAHSFERT PES FACES ttt 2939 
2060 
n.'n 
2088 

.'1 mi 
2108 



■r ,. 
2198 
7200 



2230 

. i" 
2250 
2260 



t ROTATION POLifl -fl ET *F 1 



FOR 1-0 TO 2 M=.C'Rl.l5*n 

C<R!.13*I >-C<2-I,R2> C-:2-I.R2^-C<P3-5 

C<R3.5-I)-C<I.R4> CX l,R4>.ri 

NEXT I RETURN 

REM 

PEM ttt ROTATION POUR *ft ET -F It! 

FOR 1=0 TO 2 M-CCP1.13*! ) 

C(R1.13*I)"CCI.R2> ai.R2>-C(R3.5-I> 

C<R3.3-I>-C12-I.R4> C(2-I.R4^M 

HEXT I PETURH 

REM 

PEH ttt POTATION POt,*' f ET r. ttt 

PEM 

FOR 1=0 TO 2 

M-C(I.Rl) 

C< I.R1 >-C( 1.R2) 

CCI,P2>-CC2-I.P3) 

C(2-I.R3>-C<1.R4> 

C< I.R4V-H 

HEXT I 

RETURN 

REM 

rem ttt RormioH pour 

REM 

FOP I»0 TO 2 

fKI>-C<T0.I > 

C'TO.I v«T0,Tl*I > 

C<T9.TI*I>-C<T0,9*I> 

C< TO . 9* I >-C< T0 . T2* I) 

C(T0,T2*I>-mi) 

NEXT I 

RETURN 

REM ttt POTATION -9 ttt 

T-0 P-l GOSUB 960 

Rl-0 R2-12 P3-2 P4-8 

COSUB 1360 

PETURH 

REM ttt ROTATIOM -0 «»! 

T-3P'l COSUB 969 

T0-2 TI-12 T2*6 

COSUB 1600 

RETURN 

REM ttt POTATION -P ttt 

T-6P-1 GOSUe 960 

Rl'll R2-17P3*9 R4»3 

COSUB 1490 

RETURN 

REM ttt ROTATION -F ttt 

T"? R-l GO8U0 960 

PI =2 P2=6 R3-0R4=14 

GOSIJB 1430 

RETURN 

REM ttt ROTATION -C ttt 

T-I2 R-l COS' IP 969 

RI-9 P2-3 P3--2 P4-13 

COSIJB 1490 

RETURN 

REM ttt ROTATION -H ttt 

T-15P-I GOSU " e 

T0^9 Tl*6 T2-12 

COSUB 1690 

RETURN 

PEM ttt ROTATION .A lit 

T-9 P-0 COSL« 960 

Pl-O'Pt-" P" 1 -."' R4 !.■ 

cosue m-w 

RETURN 

REM ttt PnTATiritl M3 til 
1 o R^8 COSUB 968 
TO-2 Tl"6 ' 1 

CO -it 1. 111 

RETURN 

REN n ' Fnifttion ,r> ttt 

I . F- f> 1, iv (if ■-. .1 

Mil F.-5 R3-9 R4-17 

.... hi. |.t'«. 

RETURN 

REN Mi ROTATION >F itt 

T— » R-A C01 I ■■■ e 

<-■! 2 P/ |4 R ; 8 I ' ■ 

C01 UU 1 H B 

RETURN 

PEM «tt POTATION ". 111 

T"12 P-0 '.,, in ... 

Rl 9 R2 13 J»3-2 P4-3 

'. ■ M •■' 

RETURN 

pi 11 in pniiii urn .,< ni 
T-13 P-9 COSUB 960 



DRAGON 32 



.r.?r9 re-fl 

2280 G0SI.6 I600 
2298 RETURN 

2300 REM ttt MELANGE PU >"iiFF mi 
2318 ■:■ ■ ■■■■ ?\-,i> 

2320 COSOe 1800 GOSt.© 880 
,, 2330 GOSUB 1800 G0SU8 2130 
2340 GOS'.C 2239 G0SU6 19(»9 
2330 FOR H-0 TO 10 
2360 0-RNTXi5> 

2370 ON GOSUB 669. 780-880. 1709. 1738- 
1899.1859,1999 

2389 IF 0>8 THEN ON 0-0 CO^UB 1<>50. 
2009 . 2950 . 2 1 99 . 2 1 39 . 2200 . 2250 

2390 HEXT H 
2400 RETURN 

2410 REM ttt MISE EN PLACE PES COULEURS ttt 

2420 FOR 1-0 TO 2 FOR J-9 TO 2 

2430 C<I-J>-I6 

2448 C<I.J*3>-48 

2450 CU,J»6>32 

2460 C< I . J»9 >-64 

2470 C<I. J*12>-0 

2480 C(I-J*15>-112 

2490 NEXT J, I 

2308 RETURN 

2310 REM ttt FIH DE PROGRAMME ttt 

2320 PRIHT0224.-VOH.F2 VOUS") 

2330 PPIHT0236."OUITTER<O'H> -j INP1JT REt 

2340 IF RE4--0" THEN FI-l.COTO 2670 ELSE RETURH 

2330 REM ttt CUBE FIHI ? ttt 

2360 WOK'0,0^ MX1 1-CC0.3) 

2370 rK2>-C<0.6>'HO>«C-0.9> 

2300 FOR 1-0 TO 2 

2390 FOR >0 TO 2 

26O0 IF C< I.JK>M<0> THEH 2660 

2610 IF C< I.J*3V>M( 1 ) THEH 2660 

2620 IF CO - J*6 X >HX 2 > THEN 2660 

2630 IF CO , J*9 X >M< 3 ) THEH 2660 

2640 NEXT J, I 

2630 GOTO 2670 

2660 RETURN 

2670 PEM ttt FIH PJJ CUBE ttt 

2680 CLS 

2690 PRIHT8I0. STRING*' 11 .~fi 

2700 PPIHT?42.-t LE CUBE f 

2719 PRINTI»74.STRIMC»MI."*" > 

2720 IF Ft-I THEH PRIHT8192. "VOUS FFRE7 MIFUX 
PEMHIN i-'G0TO 2740 

2730 PRINTr*l92. "BRAVO VQW AVE2 FAIT LE aiBE'" 

2740 PPINTl?224."VCHJS AVE7 TPAVHtLLE " . GO^llp 

3219'PRINrTE4i 

7730 PPIHT8208.-POtO LFS MANX PF 1FIF * VOUB' 

2760 PRIHTf328,-C0NSElLLE L'ASPIRIHE." 

2770 PRINT"?4t6.-A VOTPE SERVICE 24MV24 ..." 

2780 ENO 

2790 REM ttt CPflpHIOUE ttt 

2899 PMODE 1 .2 PCLS2SCPEEH 1,0 

2010 LINE<64,32?-<64.I3?>,PRESFT 

2820 LINE< 124.91 )-' 124. 1 78 ^ PRESET 

2830 LIte084.52)-oe4.139>. PRESET 

2848 LINEf84. 63 W84.13Z'*. PRESET 

2850 LIHEf 194. 78>-< 104, 165>. PRESET 

2860 L1NE044,78>-044. 163L PRESET 

2870 LIHF' l«4,63w 164. 1321. PRESET 

2880 FOR 1-52 TO 139 STEP 29 

2890 LINE<64, t •>-< I .'4. \ *■■:■■> ■.I'PI .1 T 

2909 LIHF/ 124. K39X184.I > t PRESI 1 

2918 HEX! I 

2920 LIHE< 64.321-' 124. 13), PRESET 

2930 L!NE<84.63>-M44,26VPRESET 

2^>40 l.INE< 104, 78)-< 164.39>. PRESET 

2959 LINE04.39) O44.70>,PRES1 I 

7969 LINE' 194. 26 >-064. 65i. PRESET 

2970 LINE' 124. 13 )-' 184.32 i.PPI' I 1 

2908 " 1 .' 

.->iio P0IHT<84.92>.4, ] PAINT' 1114. 6iv. I. t 

B ■RINT(104,38),4 1 RftINT<164,52>,4.l 

3818 POIHT' 124. 20 >.4.1 PAIHK 144. 69), 4,1 
3020 PAINT- 174.1? 1.4, I PfliNT' 174.7Ai.4-i 
!imi rOIHT' 144.Tfli.4. I HUNT' ,M ..-■ | 1 

1048 RBINT' 94,81 ■ I. I PRINT* 1 14,81 ■ • I 

•ii-.m 1 . MHI' :■}■•• I, |,1 IHIFII' -1 I 101 : 1 

1868 PAINT' [14,1 »>, l>1 PnlNT< 74, 120), 1.1 

B ■!■ ii'iiir 94, 148 ■■ t, 1 RAIND IM 168) ■ ' 

imii.i n.nii. ti. 1.1 .. 1 
n ■" 1 mi ■ 1 1 ■' ■ ■ 1 1,52) RR1 ■ 1 ' 
'1 IP' 1 '■ 1. '4-161. 40.7.. 31.0.. 7 

ti in ca or -i. 1 

■ -■ 1 1111 ■ 196 1 1-. ■ ■ 21 I 159 i.RSEl 

'■ 1 I ' I 'l. I I' I in ■ .:: "..71 

1140 1 INI ■'•.■■ 1161 ( -., [59>.| .( 1 
1150 . in n • -.4. 1461.40.4, .9" . 

:.ui!<- p.uir Ui 



CARRES MAGIQUES 



Connaissez-vous les carres magiques? Non! Mors par- 

tez vite a leur decouverte gr^ce a ce programme qui 

vous permettra de construire des carres magiques, pa- 

ramagiques et meme bimagiques! 

Un carre est dit magique si la somme de chacune des 

lignes, colonnes et diagonales est toujours constante, 

apres repartition d'une suite de nombres consecutifs 

dans les cases de ce carre d'ordre quelconque. 

On peut atler plus loin dans la magie du carre et vou- 

loir que la magie conserce aussi sur les diagonales bri- 

sees du carre. Un tel carre est dit panmagique! 

Une autre variete de carres magiques est le carre bi- 

magique. Un carre bimagique est un carre qui reste 

magique apres elevation de tous ses termes au carre. 

Alain NOGUES 

Mode d'emploi: 

Au programme done, trots options correspondent aux irois canes 
precedemment cites. L'ordre du cane est ensuite demande, suivi de 
la methode qui permettra sa construction. Une tois celle-ci terminee. 
le cane est affiche ligne par ligne, avec !a somme au bout. On a de 
ptus la possibiltte d'editer le carre avec ou sans impression des to- 
taux des lignes, colonnes et diagonales (impression au format reduit 
ou normal). Bret, de la magie et encore de la magie. 



B2 IP M-6 THEM SM.'d, MBBG05SIAH" :OOTO 110 
B3 IF M-7 THEN 103 ELSE SI 
90 IF V»V< >N Off V-2 GOTO 73 

oi s--BiM*olo<jfi-:s»-'a« tabbi- :m-b: if vis GOT 
O los 

92 INPUT' VOULEI-VOUS SUE CE CARRE SQIT.EH PL 
US. PANHAGIBUE * I R 



V0ULEZ-V0U5 



ITBODUIRE 




C/VNON 



X-07 



33 FOB 1-1 TO «:J 



ORDRE DU CARRE" IN! IF 






34 CLSIPRINT- L-ORDRE MAX 
EST40':GOSUB 30TGOTO 30 

33 PN-N MOO 2:u-n/2>pn:v-5i 
3:B-n mod 4:01m CI»*2,N-2 



THEN tDCATE 



ues-:gosus 3d 



ES":G0SU8 30 



1 SON! OtSPONI 

CARRES SIMPLES 

CARRES PANMAGIO 

CARBES 8IMAGISU 

■Z: DEFSTR B-S 



OPTION CHOISIE ' 
IO-MENUI "I OP 
. THEM 40 ELSE IF 



SM-*a» SACHET" ELSE . 
63 GOTO 120 
63 IF 8-0 THEM M-3:SM- 
66 M-4:SH--4» LA HIBE*:G0TQ 120 

70 S--PANMAGIBUE': IF B-O AND U»V< : 
SM-"tf» MARG0SS1AN-:G0T0 110 

71 SM-'<1» TARRr-:IF PN-1 ANB A>0 1 



INPUT-METHOOE 0» 1 



lou METHODE <!• BA 
ELSE IF M-2 THEN 



151 PRINT-Pour ARPETER, 
133 FOR 1-1 TO NICLS 
-0:CONS0LE 1 ,3 

136 LOCATE 13,0:PRINT- 

137 LOCATE 16,0:PRINT'« 
153 LOCATE O.l'.FOR 3-20 
**IC(I,J>i:NEXT 3 

I5» GOSUB 30:IF INKEY*» 



:GOSUB 30:G0T0 

ui*! -:beep 13.2 

400,600,610,630,63 



iEEp 20, io:beep I 

UOILA.J-AI FINI •' 



:locate i3.o:f 



THEN 163 ELSE 



iseoTo 133 

TOTAL LIC 
:GOSUB 30 



C IMPRESSION 
ET DIAGONALES 
J«"0* THEN T- 

D- IMPRESSION 



DES TOTAUX OES 



i9: |P VI ON Of? TMCM |»? tLSf - 

10? f-o:p-0>u:ifio mod u . > tmei p-p-i f L ' 



193 IF LEFT* 



. "74«G: I-?40«p-j>l:«-I-*bD:jd-0: 
;pf-p mod 2 

■ ■ i • .-•■si s;-n: 



20O FOB K-J 

704 IF K-<P 
Z06 LPRINT* 
710 E-I40-L 



IMILPRl 

! LPRINT 
0,-30*:QO 



. 0-:GOTO 240 









••CARRE -:52-- D'WW: 



■ MC MOB 21 IF PP-0 GOTO 220 
/2 GOTO 210 
DuIOOTO 240 

>jxt«ii-il»iz:xr>iLi<2iai2» 



TABICnS115IS7tVSIMI 



0,30. ' 



THE* 772 ELSE 
:SG-L£FT»(S,VG> l« 
3u:lpbint TMItH 

4BO,72-:i.PBINT-J' 

Sd-riGht«is. vdiik 



-P/2M Thin 73 
34-V0:XT-ITG-7 

U50:lPmint c« 
.0.0. -30, "XT 
T0M2>*i2:iB 

S7IUSIM0'*4N-|N:LP* 
O,0,-J0."XR-, 



232 LPRINT-M 0.49-:lPHI» 

o* 

240 LPRINTfle,2u:LPBINT C 
•: LPRINT" fli.PRINT-0 O, - 

242 FOR J-l TO NCILPPINI 

J 0,-y:next J 

243 IF PC-1 THEN T--T:LF 

244 LPBINT-J-K-,0* 

243 FOR t-1 TO N:lPRINT" 

•x-,0*:next i 

246 2-93.20»G:lPRINT"M C 
230 *0R 1-0 TO N»T 



> 1 THEN LPRIMT TABIA-41 

LPRINT U5IN5 Cll.Jtll 

I.JD-1 TO JP:LPRIMT USING-aaaa- |C< I . J 

■P AND T-1 THEM LPRINT USI HO ■■■■»■" I C 



OR 3-JD-I TO JF1LPRIMT IJSING-HI 
■P AND T-1 THEN LPRINT oSINI 



, THEN LPRIN 



.:lpbint«2. iujlprin 



Suite page 9 



40$/um$ 



a 

EYROLLES 



SERIE "JEUX- 



SERIE "UTILITAIRES" 




UBRAIRIE EYROU£S : 6t, BD ST GERMAIN • 75340 PARIS CEDEX 05 

Vemliai m'xlitjKf 1 Hitmpla..t de (coch«T l| cm CD'feipnna«nl8) Port en lui II % ■ Par ouv«W iupplom*nHit« J.SO f 

iJKAMlKA^I (BB*0) 1J6F r.J /X SI CONDI jf IF 0(S Jf UX 13 JtlJX [B835) 116f 

I [JASKRDlDES (B6S9]..II6f tl SONAR (MM) !16F 

I nOTIffiUO (B660) I26F U ZX 81 COHOyflE D(S JtUK 3 JtllX (HfiTO) SO f 

| riEDHtUftASSTMBIiUR (KMO) 120 F fj VIC JO CON0UE1E OES JtUX (;«H). . 120 f 

| M1YNX (7MS) 120 F I 1 CALCUL DCS STRUCIURFS (3713). ISO F 







VERBES ANGLAIS 



Votre TRS 80 aura le verbe haut, avec ce programme 
certainement tres utile en periode de preparation d'exa- 
men. 

Frederic CIRERA 

Modele 111 16K 

Mode d'emploi : 

Faites RUN. le litre apparait a I'ecran ensuile le menu. Taper 1 pour etu- 
dier les verbes ou 2 pour que I'ordinateur vous interroge. 
(1)Etudier les verbes : Les verbes s'affichent a I'ecran dans I'ordreal- 
pnabetique Pour passer au verbe suivant, presser la barre d'espace. 
(2) Etre mlerroQe Lordmateur tire au sort un verbe et vous donne le 
present, vousdevez lui donner le Preterit, le participe passe, puis la tra- 
duction en trancais Vousavez droit a une erreuf par mode. I'ordinateur 
vous I'mdique et vous invite a repondre une autre fois. Vous etes inter- 
roge sur 10 verbes. a la fin votre note est donnee sur 20 

69 CLEAR 1»:nv-I88 

71 KFSTR O.oiKFIVT i-.M.S-I 

89 di« Dd») 
99 rac iwt?ii*3 

IN AM'THE IRREGULAR VERBS' 

Itt ..':■ 

129 MINT CHR$I23>!3*56.: 

138 FOR 1=1 TO LENIAtl 

140 MINT niWIAtiM); 

159 FM 1=1 TO 99:tClT X:NEKT I 

168 FOB 1=1 TO 8 

178 MINT 8456.* *! 

188 FOft 1=1 TO 99:tCIT l 

199 MINT 5*56.A»; 

288 FOft 1=1 TO 99:NEXT X:NEXT I 

229 as 

239 MINT TAeU5)"VOULE7. VOUS :' 

248 MINT 3197.*a> Etudier les verbes* 

258 MINT 3261>"<2> Etre int*rro9«' 

268 MINT 8394.*Votr* erioix S.V.P ?'S 

279 81=1:600819888: IF 3*=' ' Oft S*=" THEN 268 

288 IF R$=*l' OR ftt='2' THEN 888 

298 FOB 1=1 TO 6:MINTa39*.*R£P0ND£Z (11 OU 12) ';:60SUS 738 

398 MINT839*.' ';:GOSUB 738:NE(T '. 

319 GOTO 268 

498 ' CADRE — — — 

♦18 FOft 1=8 TO 127:SETlI.8)iSET<M7>:»IXT I 

428 FOft 1=8 TO *7:SET(B.n:SE T (127,I)!N£IT I 
438 FOR 1=8 TO 127:SET(I.7):SET(I.22):*n i 
*49 FOft 1=7 TO 22:S£T(*2. 1 1 :SET<&4. 1 ) tNEXT I 
*59 MINT 8Bh 'Present : •: 

448 MINT 8195. •Preterit :*: 
465 MINT 832V "I 

479 MINT 8216.*P»st PwticiH :': 
475 MINT 8344** '; 

488 MINT 8237.'TrM,Kti<.n :-. 
485 MINT 8365.' *{ 

499 RETURN 

599 'VERBES 



IB 



RESTORE 

aS:SOSUB 499 

FOft 1=1 TO NV 

BEAD FV.M.PA.PT 

"INT 889.PV:* •; 

^IKT 8323.M;STHIN6»ll2-t£N(M)i32i; 

MINT 8344 t PA;STRIN«(12-LEN(PAh32H 

MINT 8345.?T:STRIN«I12-UIN(PT)>32); 

MINT 3788.'Pressez U touch* esfice';:GOSUB 738 

IF IWEYfs' ' THEN 638 

MINT 37a8i'Prmez 1* toyche ';:60SUB 738 

IF INKEY»=' * THEN 439 

IF PEEK! 144981=8 THEN 658 

SOTO 588 

NEXT [ 

SOTO 228 

IF ftI6HTI(MtU=* " THEN RS=L£FT*.(R*>lE>t f WTn:6QI0 718 

IF LEFT!<8$>1I=* 'THEN ft$=RI6HTt(Ri.LENIIH]-l):S0T0 715 

RETURN 

FOft 1=1 TO 99:IF PEEK! 14*981=128 THEN RETURN 

HEIT I : RETURN 

FOR W TO 99:*XT X: RETURN 

IF Hfe'r THEN 328 

IF Ri='2* THEN 968 

FOft 1=1 TO 8:MINT8197.'<1> ';:60SUe 758 

PRINT 3197.' ';:SOSUB 75B:*XT I 



B48 SOTO 599 

868 FOR 1=1 TO 8:PRiNT326Ii , <2> *;:60SUB T58 

B78 PRINT 3261.* 'iiSuSUe 758:«IT I 

see sotq leee 

999 FOR 1=1 TO 5 

918 PRINT 3529.'** EflREUR ** Essire une Mtn 'on': 

928 FOR 1=] TO 99:NEIT I 

939 PRINT 3528.'»* E3REUR »« '! 

948 FOR 1=1 TO 99:NElIT I 

958 POT I 

968 F=l 

978 PRINT 3528.* '; 

998 NsS-8.2 

999 RETURN 

1888 ' IHTE3O5ATI0N — 

;885 k=8iCLSi RANDOM 

1818 FOR n=l TO 18 

1328 :V=RND(NV. 

1838 RESTORE 

18*8 FOR 1=1 TO IV 

1858 READ PViPR.PA.p- 

1868 NEX" I 

1878 GOSUB 9880: IF 5=1 THE 1 , 1828 ELSE 60SUB 498 

1875 °RINT 366.K! 

1898 PRINT 389.PV; 

1885 F=8:IF PR=V THEN N=**8.*:&0T0 1118 

1899 PRINT 3799.;:8Z=12:SOSU8I8099:GOSUB79e:IF Rt=" THEN 1899 

nee if r»=m then n=*+b.b else if f=8 gosub 908:goto ib?b 

1118 PRINT 3323.PR: 

1115 F=8=IF PA=V* THEN N=N*8.*:6OT0 1148 

1128 PRINT 3799.::8Z=12:S0SUBlBee9:60SUe7B8:IF RJ=" THEN 1128 

1138 IF Rt=PA THEN N=N+8.8 ELSE IF F=8 SOSUB 989:SOT0 1128 

1148 PRINT 3344.PA; 

11*5 F=9 

1158 PRINT 379B.;:«=12:6OSU618998:SOSUB780:IF Rt=" THEN 1158 

1168 IF R$=PT THEN N=N+8.* ELSE IF F=9 GOSUB 998:&0T0 1158 

1178 PRINT 3345. PT; 

1299 FOR 1=1 TO 29B:NEXT XJNSXT K 

1218 CLS 

1228 IFN<8 THEN N=8 

1238 PRINTCHRJ123) 

12*8 PRINT 3*56.*V0TRE NOTE EST DE';N;'/28'i 

1258 FOR 1=1 TO 18999 

1268 IF PEEK! 14*881=128 THEN 12S8 

1278 NEXT I 

1288 SOTO 228 

1588 DATA! AM. I WAS.BEEN.ETRE 

1585 DATAI AUAKE.l AUOKEiAUOKE.REVEILLER 

1518 DATAI BEAR. I BORE.&ORNE.SUPPORTEfl 

1515 DATAI BEAT, I BEAT.BEATEN.BATTRE 

1528 DATAI BECOKE.I BECAIE. BECOME. DEVEN1R 

1538 DATAI BESIN.I BEGAN.BEGUN.COttetCER 

1548 DATAI BET. I BET.BET. PARIES . 

1558 DATAI BITE. I BIT.BlTTEN.nORSRE 

1568 DATAI BLEED. I BLEDiBLEDtSOIGNER 

1562 DATAI BLOU.I BLEW.BLOW.SOUFFLER 

1544 DATAI BREAK, I BROKE. BROKEN, BR I SER 

1544 DATAI BRING, I P^OUeHT.BHOUOfT.PORTER 

1548 DATA! BUILD. I 8U1LT.RJILT,C0NSTRUIRE 

1578 DATAI BURN, I BURNT, BURNT, BftULER 

1572 DATAI BUY. I BOUGHT, BOUGHT. ACHETER 

1574 DATAI CAN, I COULD, /.POUVOIfi 

1578 DATAI CATCH.I CAUGHT.CAUGKT.AnRAPER 

1588 DATAI CHOOSE.I CHOSE.CHOSEN.CHOISIR 

1582 DATAI OOCfl CArt.COME.VENIR 

158* DATAI COST.I COST, COST, COUTER 

1598 DATAI CREEP. I CREPT. CREPT. A VANCER 

1592 DATAI CUT. I CUT.CUT.COUFER 

159* DATAI DIG, I DUG, DU6. CREUSER 

1596 DATAI DO, I DID.D0NE.FA1RE 

159B DATAI DRAU.I DftEU,DRAI«,DESSINER 

1698 DATAI DREAM.I DfaTArTT.DREAnr.REVER 

1682 DATAI DRINK, I DRANK, DRUNK.BOIRE 

1684 DATAI QUELL. I DUELT.DUELT.DEREURER 

1686 DATAI DEAL, I DEALT, DEALT, DISTRIBUER 

1698 DATAI DRIVE, I DROVE'DRIVEN.CONDUIRE 

1618 DATAI EAT. I ATE. EATEN, rVWGER 

1612 DATAI FALL, I FELL.FALLEN.TOrSER 

1614 DATAI FEED.I FEDrFED, NOURRI R 

1618 DATAI FEEL. I FRT.FRT.EPROUVER 

1628 DATAI FIGHT, I FOUGHT, FOUGHT. BATTUE 

1622 DATAI FIND. I FOUND.FOUND.TROUVER 

1624 DATAI FLY. I FLEU.FLOUN.VOLER 

162B DATAI F0RB1D.I FORBADE. FORBIDDEN, INTEHDIRE 

1638 DATAI FORGET, I FORGOT.FORGOTTEN.OUBLIER 




^s 



80 



1632 DATAI FREEZE. I n»ZE. FROZEN. SELE' 
143* DATAI GET. I 60T.60T.ALLER 
1636 DATAI GIVE.I GAVE.GIVEN.DONNER 
1638 DATAI 60.1 UENT.SONE.ALLER 
1448 DATAI SROU.I W&.6R0W, POUSSES 
16*2 DATAI HANG. I HUNS.HUNG.PFWftE 
16*4 DATAI HAVE, I HAD.HAO.AVOIR 
1648 DATAI HEAR. I HEARD. HEAftD.ENTfJCSE 
1659 DATAI HIDE. I HID.HIDOEN.CAOCR 
1652 DATAI HIT. I HIT.4IT.FHAPPER 
165* DATAI HOlD.I HELD.HELD.TENiR 
165B DATAI HURT. I HURT, HURT. BUSSER 
1668 DATA! KEEP.I KEPT ■ KEPT , SARDER 
1442 DATA! KNOM.I KNTJ.rOWUN.CONNAITRE 
1664 DATA! LAY.i LAID.LAID-CUUCHEB 
1664 DATA! LIE. I UW.LAIN.ETRE COUOC 
■648 DATA! LEAN.I LEANT.LEANT.APPUYEft 
1678 DATAi LEARN, I LFJ^Rm.l^ARW.APPHO«» 
1672 DATA! LEAVE.! LEFTiLEFT.lAISSER 
167* DATAI LEND.I LENT, LENT, PRETES 
1676 DATAI lOSE.I LOST.LOST.PERDRE 
167B DATAI MKE.I WDE.rWOE.FAeRIflUES 
1688 DATAI MAY.I rllSHT./.POUvOIR 

1682 DATAI fEAN.I MEANT, rtANT. SIGNIFIES 
168* DATA! MEET,! MET, r£T. RENCONTPER 
1684 DATAI 1UST,/./. DEVOIR 

1683 DATA! PAY, I PAID.PAID.PAYER 
1699 DATAI PUT.! PUT.PUT.rCTTRE 
1692 DATAI READ, I HEAD. HEAD. LI RE 
169* DATAI RIDE. I RODE.RIDOEN.ftNER 
1694 DATAi RING, I RANG, RUNS, SONNER 
1699 DATAI RISE.! ROSE. RISEN, S'ELEVER 
1788 DATA! RUN. 3 RAN.RUN.COURSIR 
1792 DATA! SAY.i SAID. SAID. DIRE 
1784 DATA! SEE, I SAU, SEEN, VOIR 
1788 DATAI SELL.I SOLD. SOLD, VENDRE 
1718 DATAI SEND, I SENT. SENT, ENVOYER 
1712 DATAI SET i I SET,SET,r£TTRE 
171* DATAI SHAKE.I SrftOK.SKAKEN.SECOUER 
1718 DATAI SHINE.! SHONE. SHONE. BR I LLER 
1728 DATAI SHOW, I SrWkO.SHW.nOKTRER 
1722 DATA! SHUT.I SHUT, SHUT, TOMEER 
172* DATAI SING,! SAN6.SUNG.CHWTES 
1726 DATAI SIT.I SAT,SAT,S'ASS£OIR 
1728 DATAI SLEEP.I SLEPT. SLEPT. D0S1 1 R 
1738 DATAI SMELL, I ShELT, SMELT. SENT I R 
1732 DATAI SPEAK. I SPOKE, SPOKEN, PASLER 
173* DATAI SPEND.I SPENT.SPENT.DEPENSER 
1736 DATAI SPOIL.l SP01LT.SPOILT.A6IHER 
1768 DATAI SPREAD. I SPREAD. SPREAD. ETENDRE 
1778 DATAI STAND.I STOOD. STOOD. ETRE LEVE 
1772 DATAI STEAL.I STOLE. STOLEN, DEROBER 
1774 DATAI STICK. I STUCX.STUCK.COLLER 
1776 DATAI SWEEP,! SWEPT, SWEPT. 8ALAYER 
1778 DATAI SWELL.I SWELLED, SWOLEN. DfLER 
1788 DATAI 5WEAR.1 SWORE. SWORN. JURE R 
1782 DATAI SWIH.I SWAM, SWUM. NAGER 

1784 DATAI TAKE,! TOOK. TAKEN, PRENDRE 

1786 DATA! TEACH,! TAUGHT. TAUGHT >ENSE I OCR 

1786 DATAI TEAfl.I TOflE.TORN.DECHlRER 

1798 DATAI TELL, I TOLD. TOLD, RACONTER 

1792 DATAI THINK, I THOUGHT, THOUGHT, PENSER 

1794 DATA! THftOU.I THREW, THROWN. JETER 

1796 DATAI UNDERSTAND.! UNDESTOOD, UNDERSTOOD. COMPRENORf: 

1798 DATA! WAKE.! UOKE.UOKEN.EVEILLER 

1B98 DATAI WEAR,! WORE, WORN. PORTER 

1892 DATAI WEEP.I UEPT.WEPT,PLEUItER 

1894 DATAI UIN.I U0M.UON.GA9CR 

1886 DATAI WRITE. I WROTE. WRITTEN, ECR1 RE 

9999 ' TEST DOUBLE 

9918 5=9 

9929 FOR M TO K 

9838 IF DttWV THEN S=l 

9959 IF S=9 THEN D(K)=PV 
9868 RETURN 

18898 ■ROUTINE DE SAISIE 

I88V5 ft^"!Yi=":8X=9 

19918 MINTSTRIN6«l«.CHft»(*5))-.STRlN«l«.CHRi(2411i 

IB828 PRINTCHR*U*);:F0RJ=IT025:Yt=INKEY*:IFYiO''THEN18938 

19924 KEXTsMINT CHftt(15);:F0ft W TO 25:Y*=]NKEY$ 

18825 IF Y*<>" THEN 18838 ELSE NEXT:SOTO IB929 

19939 IFY«<>CHR*(13)THEN1895eaSEPRII(TSTRINGi{9Zl , '» 

18848 PRINTCHRt!15i::J=25:NaT:SOT0 29898 

18858 PR!NTCHR*(14)::IR»=CHM(2*lTHENPRINTSTRINGI(flX,CH«$(2*));:G0T019995 

18848 im<>CHR*(8)THENiei89ELSEIF6I=8THENie829aSEMlNTCHft*l2*i; 

18878 R»=LEFT$(Rt,LEN<R*I-l> 

19988 8X=«X-i:POKE16*18,*5:60T01BB28 

18198 IF8Z=8XTrO18829aSEIF8Z>BTHEN!FY$>=■A■ANDY*(=■Z■0RY*=■'•0fiY^=• 'THENI812B 

18118 IFY« , 8'0RYi>'9'THEN18829 

1813 PfQNTYt;:Rf=RVY*!8X=«X4l 

18138 [F9Z=lTHEN19949aSElBB28 

28888 RETURN 



FLIPPER 



Le but du jeu est de ramasser ie plus possible d'etoiles 
avec 5 boules. Vous dirigez la fleche grace aux tou- 
ches A et S. Si vous tapez sur les touches J,K et L, 
vous pouvez decider de Tangle sous lequel partira la 
boule au depart. II ne vous reste plus qu'a appuyer sur 
la touche F pour jouer. La boule tournera pendant un 
certain temps, puis reprendra la forme d'une fleche. 
Pour avoir plus de balles, changez le 5 en ligne 70. 



VIC 20 



Vincent FARGET 



19 PRINT-:W; P0KE36879,44 

S8 C-7679 : BJ"64 ■ BS»'j>3 fl-42 0=22 S=J9 ii=S125 H-u5 J-/J U*/A H-^3 M-1M Fl»3 

79 PT-5R-4 GS^ F0RX-1T029 

320 POKEC+X,BU;P0KEC+462*X,BiJ IF>i>24THEH39e 

348 P0KEC*1+22«X,B3 P0KEC*26+22»X.BS 

396 ME>rTX'P0KEC*l-112 ; PrjKEC*2e-119:r-0KEC*463.ie3 PUKEU*4«2, 125 FUKX-1TU14 

43« BZ»e:Dl«C*IHr<RHD<6J»26+2>+22»';]Hr':RHI)(4J#2W+^jj KAU1 -1 [04 FOhW»l (04 

450 IFPEEK(Dl-46*Ql*22»W)>43THEHD2-2 

433 tOITW :HEXTQI'- IFD2-2THEM438 

490 P0KED1.H PQKED1*1.J P0KEL1*22,H P0KED1+23.M -NEXTX 

300 FORX-1TO60 

303 D-C*IHr<RMDC6>tl9*l)+22«i<IHTCRHDC4;«19»l)> IFPEEK1DJOOTMEH303 



310 POKED. fi-NEXIX 2403 

750 POKEQ-3 01"0 F1=0 P-0IFPT=0THEM5000 2410 

760 0ETO$ IFO*« ,,, 'THEN760 2411 

763 IFQ$»"F"TH£NPT-PT-1 S-81 POKEU,r,.GOrO2000 2412 

779 IFQ»--F|-THeM1009 2413 
775 IFQ*»"K-THEHR»4 S"S3 2430 

780 IFi3*="J-THErJR-6^S-77 2433 
785 IFO*'-L*THeHR-8:S-7e 2430 
790 IFM--S-THEN3000 2470 
800 GOTO730 2473 
1990 0-0-1 IFQ<8122THEMG=&122 2490 
1390 POKEO-1,0 P0KEQ.3 POKEOH.O OOTO760 2510 
2000 PI-P IFR1ORTHEH01-F1 2313 
2200 IFft-lTMEMP-Ptl 2530 
2220 IFR-2THEMP-P-1 2580 
2230 IFR-3THEHP*P>22 2505 
2240 IFR-4THEHP-P-22 2600 
2230 IFR-5THEHP»P*23 3000 
2260 IFR-6THEJ# > «P-23 3300 
227B IFR-7THENP-P+21 4000 
2280 IFR-3THENP-P-21 4900 
2290 Fl-PEEKCOtP) F2«Q«f> IFFI-HTMEN8000 5000 
2300 IFF1O0THEN00SUB2499 6000 
2320 P0KE0»P.8-POKE0+Pl.Ol Kl-K K"K*1- 7000 
.IFK-209 rHEMPOKEO'P.F 1 K-0 S-30 GOTO730 8000 
2390 3-81 01-0 GOTO2000 
2400 1FF1-HTHEI14000 

2402 1FF1-JTHEM3000 

2403 IFF1-HTHEN6000 

2404 IFF1-MIHEH7000 9300 
2403 0HRO0T024 I 2, 24 13. 241 3. 2412, 2430. 2470,2510,2560 9600 

2406 R-r RETURN 9700 

2407 R>2 -RETURN 9800 

2408 R-3 RETURN 9990 

8 




R*4 RETURN 
R-5 RETURN 
R>6: RETURN 
R-? RETURN 
R=3- RETURN 

[FF1-BUTHEN2413 

IFF1-BSTHEN2412 
GOT02411 

IFFI-BVJTHEN2412 

IFFUBSTHEN2413 
GOT 024 10 

IFF1-BUTHEN2411 

IFF1=»BSIHEN2410 
GOT02413 

IFF1-BUTHEN2410 

IFF1-8STHEN241I 

GOT02412 

0-0+1 IF0>8137rHEN0-8137 

POKEO-1.0 POKEO-S POKEO+l.O &0T076W 

0NRGOT02413, 4900,24 12,4900.24 13. 4y*W. 2407, 2409 

RETURN 

OHRGOTO4900, 241 1,2410- 4900. 2406,2409-2418,4900 

OIXGOTG2410, 4900, 4*». 241 1,2488. 240/. 4900. 2411 

rjHROOTO4900,24 12, 4908. 2413, 4900- 2412, 2400.2406 

GS=GS*5-PT F 1 -0 ■ &- 1 78 - GOTO2320 

FORX-1TO1300HEXTX PRINT H fttt OVER" - 

I"«nWbCOkfc UNHL -,os 

IF0S>GHTHENOM-OS 
PRlHT' MtMCH SCORE' *t OH 

IFLEFTfCV»,U--0-IHhNlH 

IFLEF'T«<V».l>-"N*IMfcN9990 

GOTO9300 

END ■ 



DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
tormule, pourtant nous es- 
sayons de faire queique chose 
de different : nous organisons 
un cone outs permanent tous 
les moi s et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suetle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOG1CIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIG1NAUX et FRANCA1S. Si 
voire programme n'est pas tout 
a fait au point, un de nos spe- 
ciaiistes vous dira comment 
I'ameiiorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, it vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications nee essa ires a I'utiti- 
sabon de ce programme. 
Bonne chance! 



Reglement : 

ART. 1 : HEBDOGICIEl organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 Ce concours est ouvert a 
tout auteur de logiciel queique 
soil le materiel sur lequel il est 
realise Lenvoi dun logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoys gratuiternent sur de- 



mande par la redaction de notre 
journal constitue lacte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GIC1EL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal. 

ART 4 Ce sont les lecteurs qui. 
par leur vote, detertninent les 
meilleurs logiciels mensuel et 
Irimestnel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART 6: Le prix alloue pour le 
concours trimestriel sera rernis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7; Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris 
ART. 8 : HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART. 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27, rue du Gal 

FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
tort pourcentage de vote par 
rapport a la tota lite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi. pas de favoritisme pour 
les ordtnateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom 

Pre nom : 

Age : Profession : 

Adresse : 

N D telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre i'auteur de ce programme qui nest DJ une imitation nt une 
copie d'un programme existant. Ce programme reste ma propnete et 
j'autonse HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 1000 Irancs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnelique (cassette ou 
disquette) accompagne dun descri p iif detains du maten el utilise, 
d'une notice d'utilisation du programme. Les supports des program- 
mes publies sont conserves , n'oubliez done pas den faire une copie 



RECOMMAHDATrONS AUX LEC- 
TEURS QUI SOUHAJTENT FAIRE 
PUBUER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
lope. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en lindiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'mscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et ie materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme et le materiel auquel il est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de rimprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se complete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



Ne nous envoyez plus d envelop- 
pes timbrees, mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu !e nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES, 
MASTERMIND. PENDU. TOUR DE 
HANOI. CALENDRIER, BATAILLE 
NAVALE. POKER, JACKPOT 
BOWLING, BLACK JACK. LABY- 
RINTHE, MEMORY SIMON. 421. 
OTHELLO. SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOO, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQU1RELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



Les editions du CAGIRE offrcnt 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de labou- 
cle" de Janick TAILLANDIER. 





Suite de la page 7 ^--J-n*. « 




GAGNANT DU CONCOURS MENSUEL HEBDOGI- 




/^)) 




CIEL 






rV A 


430 FOR J-l TO «!CI-I-J:1F Mtl.JllO OOIO 432 


Stephane CALLEGAR 


pour BRAIN sur ORIC 




^K-JZ^ 


432 NEXT J, I:HI1,NI-0 






\i 


441 FOR t-i TO U! LOCATE 14, 1 ! PR INT I;F0RI-1 T 








o n:cii, ji-cii.jumc, jiinext j.i 








^ c^°<* 

▼ Vol 








GAGNANT DES DEUX CASSETTES OFFERTES I 


443 ci-2-l:FOR J-l TO N:C 11, JI-CI I, Jl 'A-HtCI, 






PAR QUIRELLE 


446 RETURN 






Stephane CALLEGARI pour BRAIN sur ORIC 


301 PRINT* Er.t---t 4 noabrtl PRLMll.K'^ .1 | 








302 INPUT AI,A2,fil,B? 






310 IF Al-O OR A2>0 OR Bl-0 OR U2-0 OOTO 313 








31! IF IAHH2-A2»BI1 NOD N-0 OOTO 313 








312 IFIAI'BIIHOD N-0 ORIAt-BIIMOD N-O OOTO 31 


GAGNANT DU LIVRE 


"AUTOUR DE LA BOUCLE" 




312 LPRINT US (Ni.'tmn- | A! |A2I !;l I B2! OOTO 320 


3 


DE JANICK TAILLANDIER des editions CAGIRE 




314 for k-1 ro aifor l-i to «:lprint usino*»h 


3 


Eric MATHIAUD pour MISSILE sur HP41 




313 LPRINTILPRINT T AB ( 16 1 1 : NEXT X 

320 LPRINTA4.1U 

321 CLS: INPUT 'l/OULEZ-VOUS UN AUTRE CARRE MA 


314 RETURN 

313 LOCATE 0,2:PR1NT 'CLES INVALIDES' IO0BUB 30 








!OOTQ 30O 

330 IF N-3 THEN A 1 - 1 : A2- 1 ! B 1 "2; B2-3 ! RETURN 








331 DIN 0(4,41 I I* H-? THEN RESTORE 360:OOT0 3 






322 IF LEFT4IR, 1 >-'0' THEN 30 ELSE CLSILOCATE 









3,i:print-au revoir i-:eno 


332 IF N«0 THEN RESTORE 362I0OT0 333 






330 LOCATE 2, 1:prINT- J» poiitionni l«-:P-l!J- 




M ° 






333 FOR I-l 10 4!F0R J-l 10 4iREA0 O 1 1 , J j : NE X 










333 I"l-l:lF 1-0 THEN I-N1A-I 








336 J-J»1!IF J>N THEN J-l:8-I 




JmK q 


GAGNANTS DES LIVRES DE LA REGLE A CAL- 


337 If CI1.JDO THEN ON H COSUB 330,360 

338 cit, ji-p:p-p-i 




400 LOCATE 4,l:PRINT'LlONE*!FOR I-l TO NJLOCA 




CUL: 


330 IF A-0 THEN I-I»2:J-J-IMF I>N tMEN 1*1 




jj£y J)? — "| ° 


Stephane CALLEGARI pour BRAIN sur ORIC 




J-1I4A2XI-I HB2IN0D NMMXT J,I 
602 OOTO 630 




J.P. DUBOS pour DEIS sur APPLE II 




4io ai-i:a7-w:bi-u;b2-i:locate «, uprini -LION 




P.BOOUET pour BOMBER sur CASIO 


362 RETURN 


All FOR I-l TO NILOCATf I3,1:PRINT iiron J-l 




C.ARCHAMBAULT pour NIBBLER sur COMMO- 


370 LOCATE 0,1:PRINT'J» r..pln 1* c«r't, L 


TO N 




DORE 64 


371 p-i:pop i«i to nilocate io,z:prini ufor 


412 A-I D-ll.Ulll-ll INOD N!IF AJ-U THEN A-3»W 




P.H. BERSANI pour INDIEN sur VIC 20 

Luc MARTINELLI pour CARACTERES sur SPEC- 


ISO CLSIPRINT*, ,«I puis J* pVrMula LtONC" 
301 FOR 1-1 TO NILOCATE I0,1:PRINT UPI-I HOD 


613 B-HI-I 1 •«•( J-l 1 IHOO Ml IP B)-U THEN B-3*W 
-l-B 

614 CII,I1-I •AIN'BINHXT J, 1:0010 630 




TRUM 


2: IF DM THEN J-2-PI ELBE J-IT1 
3B2 00SU8 3VO!J-J»2!IF J>U THEH 303 ELSE 302 


430 DIM 01411 1-llJ-llLOCATE 3, li PRINT 'L 1 ONI I 




Eric MATHIAUD pour MISSILE sur HP 41 


303 NEXT :RF TURN 






Emmanuel GUILLORY pour FUTE sur MPF II 


3"C P-CII, JCCII. J1"CI*-I,/-Ji:Ci2-I.Z-Ji-P:R 


V-IIFOR E-0 TO V-I 




M.DOUZE pour COMBAT DE CHARS sur PC 121 1 


*oo R Clf:P»INT-j, rMplli l« e*rr« d. W»,u 


43? FOR M-t TO 'l:IHKI-ll iuii.h ■! lUlir.KI'Oltll 
3,KI<HIO<4,K>>nOD VINBKT K 




W.VON LUNEN pour SCRABBLE sur PC1500 


401 C(W, li-N:ciM-i,ii-i:f 0* J-i to u:locate •/ 


633 CI I. i >- l .nHJ .vi irn 1, .v« mm.'I .vmn 1 1 1 ItJ- 




Yves BURGALIERES pour STAR WAR sur CANON 


634 IF J>N THEN J - I ! I - I » 1 I LOCATE 1 0, 2 ! PR INT 1 I 




X07 


402 CJ-Z-J1HJ-0:NC-1:C(I,JI-J!CICJ,JI-J:CIJ,J 
• 1 l-M liCICJ, Jill-M 

4lo tnu l-l ni m:ci-,- l:lr c < l , J i >o 0010 412 


-1) 




Francis PEIGNIER pour COURSE AUTOMOBILE 


■M !• ll-il AND Jl-0 THEN RETURN CLSI LOCATE 




sur MZ80 


411 C 1 I , JI-J»NJ>C]«NC!CICI,J1-Cll,JliNJ-l-N]l 


2,2:print-j« ■•r*ut«...< 




Lionel BECKER pour MINES sur ZX81 


412 NEXT I.J 


431 DIM MINI !Kl-!l-i:CJ-Jl-l!IF 1 I-O 0010 670 
460 FOR J-l TO NILOCAIC l3.21PH.tNT JIFOR 1-1 




J.F.DE LIGONDES pour TRANSAT sur TRS 80 
J.M.DOBBS pour BOMBER sur TI99/4A Basic Sim- 


413 FOH J-WM TO NILOCAlt ". .' ci-'uri l:Cft-l 
416 FOR I-l 10 N1CII.1I-/-CI !,C1>!NGKT 1,J 
420 CI01PR1N1- )0 ---.plia un r)*ol- eirr* MUR 


TO NiHI I l-CI I, Jl 1NRXT 1 

661 FOR I-l TO NIL-KEIIIF L>N THIN L-L-N 

663 CCL,J1-IUI i :W ■ ■ 




ple 


I 1 ni>», 1 no- : • 


470 IF EJ-0 THIN RCTORN CL*E LOCATE I3,2IFN1N 










Ph.PAIR pour SAUVETAGE sur TI99/4A Basic 


y 


6?1 FOR I-l TO N.'LOCATi; 13,2;PRINT I i FOR J-l 




Etendu 


423 FOH I-l 10 «: LOCATE I2,J:PRINI IIQ1*Z-Itl 


lu NIHDIafid, J I INCUT J 






M.HUMBLOT pour ANNUAIR 


E sur T07. 


-NFII- HIO-A-B 

424 HII,l.ll-OiMll,Cl-ll-D:nil,n-aiMll.Cll-B 


472 FOR J-l TO N!L-J>IJIIF LIN THIN L-L-N 

4/3 C'l.D-HIJUNKMt J.IiRITURN ■ 



DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux lermes, nous les avons testes pour vous ! 




LOGICiELS 


Qi ■ ■>■■■■ 


•■. 


■- 


•' . . 




















'•>WfrJ^<- .,« 


j"~" 


- zsjod 












(Kit «• X «* 


~~KS 


:- 


-"■■ " ■-, \ 



DUEL 



Depuis 700 ans, le pays de SNURR est coupe en deux 
par la faille qu'habite le Limon vert. 
Seul un pont relie les deux regions et permet de pas- 
ser hors de son atteinte, mais cette unique voie est 
1'objet de bien des convoitises et chacun des deux 
nouveaux royaumes veut se I'approprier. 
La magie ne peut tranchir la faille et n'a pu resoudre le 
conflit: le combat physique est devenu ('unique solu- 
tion. 

Chaque equinoxe est done le temoin de sanglants 
duels entre six champions, et chaque equinoxe voit le 
Limon grossi des cadavres des champions.. Arriverez - 
vous enfin a resoudre cet affrontement seculaire? Duel 
est conc/u pour deux joueurs et fonctionne avec les 
manettes de jeu. 

Les regies sont comprises dans le programme (ligne 
300 a 610) 

Emmanuel LUSINCHI 



BAS»C TEN0 V3 



ERRATA N 21 




QUEST sur TI99/4A basic 


CALL HCHAR<9.8.116,2) 


etendu 


Ligne 1760: IF X - LAG AND V 


(Jgne 910: Dans la premiere ins- 
truction CALL HCHAR, vous 


= CAL THEN ORfl= ORR> S 


Y = 3 ANNEAU I ELSE 


devez avoir: 


1760. 



MO CALL TEMPO (I OOO) 

TWO PRINT " JOVST VERS L'AVANT 
MOUVEHENT VERS L'AVANT" 

3lO CALL TEMPO! 1O0O) 

320 PRINT " JDYST VERS L'APP.IERE 
NOUVENENT VERS L'ARRIERE 

S30 CALL TEMPO tlOOOJ 
340 PRtNT - DIAGONALS AVANT^HAUT 
POUSSER AVEC LE 80UCLIEH 

530 CALL TEMPO* lOOO) 

360 PRINT " 3 GUERREERS CHACUN" 

370 CALL TEMPO! IOOO) 

S3'.' PRINT " ENLEVER tALPHA LOCK] 

5<?0 CALL TEMPOdOOO) 

60O CALL CLEAR 

filO REM FOUR LES LIGNES 1O40, 107 

0.11OO.I120 ET 1490 : APPUYEZ.A 

LA FIN DE LA LIG 

NE.SUR tENTERJ i SUR CFCTNJfctD] 

PUIS CONTINUE! VOTRE LIGNE 

b20 CALL CHAR(88,"FFFFFFFFFFFFFF 



■MX) PRINT 



920 PRINT "*rC 



kkkkkkkkh k" 

930 PRINT "k kkkkkhij 

kkkkk klc kkhlj 

k kk kkR 

Pkfc kk kfcS 
dkk k* 
■MO PRINT -k kk 
kk kk kk 



I l*TO VIE2-VIE2*! II CALL PATTER* 

«»!2,92lti S-S*4 

1200 CALL S0UN0ClI0,-3,0. IIO.IO) 

12tO CALL SPRITE(»4.BB.3. lA^.S.ft 

.Ol 

IZ?0 A-A«4 :: IF A^-t21»B>»3 THE 

N 12SO ELSE CALL LOCATE <•!?. A. S) 

■f GOTO I220 

1730 CALL CHARI04.-0000000000000 

000004000222 1 OT2S 1 30000000000000 

000O020O2 1 02 1 AC3 

OAO') 

1240 CALL SFRITE(«3.S4.3. (19«8>> 

l.S.O.O) 

I2SO CALL SOUNO<-1.-3.3>l j CALL 

SOUNDI-3,-7,4.1 I0.1O) t ; CALL SOU 

ND(-3,-0.3.370.l 

O) 



TV 



-99 A/ A 



. © 



ATTENTION! 

Certaines lignes de plus de 80 
caracteres sont coupees en 
deux morceaux. Attention done, 
vous ne devez pas taper les 
blares irrtroduits par accident 
dans le listing... 
Merci de voire comprehension. 




■ . ■"'. . :. 
I 
TO CALL SOUNDUS5. 1Z9. 0,-Z. 10, 
,10) 
ZOO CALL SOUND ' 539 . t . 



!IO CALL SOUND<73<J. 16.3.0,-3,10, 

■ 

20 CALL 50UND'1B3, 13*., 0,-3, lO, 

SOUND !538. I 56,0, -3,10. 

■ . I ■ I 

40 CALL S0UMDUB3, 139.0,-3,10, 

0,10! 
23'J CALL SOUNIM33B, 13*?, 0,-3. lO, 

■', n ■ 
260 CALL 5OUND<2O0, 131 ,0.-3. lO, 

O, I0> 
270 CALL SOUND tlSOO, 159,0,-3,10 

10.10) 

rao return 

2TO CALL CLEAR :: CALL SCREEN(2 
300 REM •••••••.. • 

• PRESENTATION • 



S34 CALL CHAP '4U, "F FFFFFFFFFFFFF 



t ( OOOO ( OO OO OOOOOO CO 

OOOOOO OO 
OO OO OO OO OO 00 OO 

00" 
330 PRINT * OO OO OO OO OOtt 
OO OO 00 OO 00 OOOO OO 

OO OO OO OO 
OO OO OO 00 OO 00 00 



3BO FOR C0L=3 TO 12 a CALL COLO 

RICOL.1A. t) 

390 NEXT COL 

400 DISPLAV AT(20, 1 ) : " 1 _LES REGL 

ES 2_LE JEU* 

410 CALL kEV(0.OW.ERJ; : IF ER-0 

THEN 410 ELSE IF DW=4<7 THEN 430 

ELSE IF OW-SO TM 

EN 3BO ELSE 410 

420 CALL CLEAR 

430 PRINT " DUEL" 

440 PRINT " JEU POUR 

2 GUERRIERS" 
430 CALL TEMPOiSOO) 
460 PRINT " JOYST VERS LE HAUT 

BDUCLIER- 
470 CALL TEMPOtlOOO) 
4 BO PRINT - JOVST VERS LE BAS 

EPEE- 



FFFFrFFFFFFFFFFF 

SIO CALL C0L0Rt3,13,7> 

fc4ti CALL COLOR (10. 15,11:; CALL C 
OLOftdl, 13. 1): : C«LL C0LDRU2.6, 



670 CALL SCREEN CS) 

6BO CALL CLEAR 

690 CALL HAGNIFVI3) 

700 CALL CHAR(64.-3C7FCDDFF67E!2 

710 CALL CMAR(72, "FFFFFFFFFFFFFF 

FF"»:: CALL COL0R(6,3,l) 

720 CALL C0L0R(7, 12,1) 

730 CALL CHAR(BO, "I0!E060i763777 

41I77706O7OI01") 

740 CALL CHAft!B2,"0B78&0606EEAEE 

a2EAEA6OE0BOB0") 

730 CALL CHARI123, "01 7I61F161F9F 

BFE 707B7C6&64C5B664 " ) 

760 CALL CHAR(130,"0000000000000 

ooooooooooooooooooo- ) 

770 CALL CHAR! 132, "007O60F66EFDF 

387767B7CA664C5B6&4-) 

7BO CALL CHARU34, -0810204000000 

OOOOOOOOOOOOOOOOOOO" ) 

790 CALL CHAR(9e."808E868FB69FDF 

7F0E 1 E3E6626A36I26" ) 

BOO CALL CHAR(96,"00000000000000 

OOOOOOOOOOOOOOOOOO" ) 

BIO CALL CHAR(lO2,"0O0E066F76BFD 

FE16E1E3E6626A36I26") 

B20 CALL CHAR! 100. "1008040201000 

OOOOOOOOOOOOOOOOOOO" ) 

830 CALL CHAR< 104, "FFFFFFFFFFFFF 

CEO"):: CALL CHARC 103, "FFFFFFFEF 

080") : : CALL CHA 

RII04, ■'FFF8C0->: : CALL CHARII07. 

"FFFFFFFFFFFFFFFF" ) 

B40 CALL CHARUOB.-FFIF03"):: CA 

LL CHAR[I09,"FFFFFF7FOFOI")ii CA 

LL CHAR<1I0,"FFF 

FFFFFFFFF3F07"): i CALL CHAR ( 1 1 1 , 

"FFFEFCF8F0EOC0BO- > 

B50 CALL CHARIi 12.-FF7F3F1F0F070 

301") 

860 CALL CHAR(120, "FFFFFFFFFFFFF 

FFF-M; CALL CHAR ( 121 , "BOCOEOFOF 

BFCFEFF").: CALL 

CHAR! 122. "0103O70F1F3F7FFF-I 
870 CALL CHAR(123,-B080808080BOB 
0BO")i! CALL CMARU24.-O1O101010 
1010101") 

BBO CALL CHAR (92. "07O4O4O33FFFEE 
9FADDD9CDC00OO0O0OOOOO1C90DOF17I 
O2B4S40888FO182O 

B90 CALL S0UND(330, I56.0.-2, 10) t 
: CALL S0UND(338,23I,0.-2.10):: 
CALL SOUND (330,2 
OB. O, -2, 10)1 : CALL SOUND ( 1 OOO , 3 1 

1.0,-2. 10) 



960 CALL SPRITE (»i: 



128,2, O.K. ( 



970 CALL SPRITE("T2,96.16,A.S.O, 
O) 

9SO CALL JOYST ll.E.R) 
990 CALL JOYST(2,D,F) 
lOOO IF W<-27 THEN BOSUB 1300 
1010 IF S>-213 THEN GOSUB 1190 
1020 IF F-4 THEN CALL CHARUOO," 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
-):j CALL PATTER 
N1N12.100) :: AS-1 it 802-I 
1030 IF R-4 THEN CALL CHARM34," 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
-):: CALL PATTER 
N(B11,132):: DX-1 :: BOl-1 
I04O IF R=-4 AND E<>4 THEN AT1-I 
:: CALL CHAR ( 134, -08 I 020406O0OO 



BFO-1 

1270 CALL CHAR<B4."0000000000000 

0000000000000033FFFOOOOOOOOOOOOO 

OOOOOOOOOOOOOCOF 

OFF") 

12B0 CALL DELSPRITE(t3) 

1290 IF V1E2>2 THEN CALL COLOR!* 

ll,7)i: GOTO 1460 ELSE CALL HCHA 

R(l,20,64.VIE2)i 

: GOTO 1 430 

I300 V1EI-VIE1H :j CALL PATTERN 

(•1 1,92) i : M-M-4 



OOO"):: CALL PATIERN(»1 t . 132) II 
IF H=S AND 8O2-0 AND FO-4 THEN 
1I90 ELSE 10AO 
1O30 GOTO 1070 

1060 IF S=W AND B02- 1 THEN CALL 
SOUND(BO,2SOO, 0.-3,4. HO.7):: RU 
TO 1430 ELSE IF 

R=4 THEN 1030 ELSE IF S-N AND F- 
-4 AND R»-4 THEN GOSUB 1420 
1O70 IF F— 4 AND 0< >-4 THEN AT2- 
I '.: CALL CHAR(100.-IOOB04020100 
OOOOOOOOOOOOOOOO 

OOOO - ) I I CALL PATTERN(B12, IOO)lI 
IF S-M AND BOI-O AND R<>-4 liir.N 
1300 ELSE 1090 
080 C.OTO 1 lOO 

090 IF S-M AND BOl-l THEN CALL 
SOUN0(8O.23OO.O.-3,4,llO.7>t: GO 
1440 ELSE IF 
■4 THEN 102O ELSE IF S-H AND F- 

AND R--4 THEN GOSUB 1420 
OO IF D--4 AND S*W AND F-4 AND 
:<>4 THEN CALL SOUND! HO, -7,0, 1 
1,4)11 GOTO 144 

ELSE IF D— 4 AND S>H THEN S-S- 
t! CALL LOCATE(tl2,A,S) t I AS-1 
1 lO IF E--4 THEN M-N-4 :: CALL 
OCATEfDl 1,0. Wit; OW-1 
120 IF F.-4 AND S-N AND R-4 ANO 

THEN CALL SOUND! 1 lO, -7.O. I I 
>,4I:: GOTO 1430 

ELSE IF E-4 AND W<S THEN W-W-4 
: CALL LOCATFt"l I.B.W): : OW-I 
130 IF D-4 THEN S-S*4 :: CALL L 
OCATE(»12,A,S)u AS-I 
140 IF 801-1 OR AT1-1 THEN 1160 
130 CALL PATTERNHM1. 12B1 
160 IF B02-1 OR AT2-1 THEN I 1 /') 
ELSE CALL PATTERN(»I2,96) 
170 OW-0 :: AS-O :: BOl-O i: BO 



1330 0=0*4 :: IF G>-<21»B>»3 THE 
N 1340 ELSE CALL LOCATE <■! 1 ,O.M) 

i t GOTO 1330 

1340 CALL CHAR(84,-0OOO0000OO0OO 
000004000222 1 D923 1 30000000000000 
000002002 1 07 1 ACS 
OAO") 

1330 CALL SP«ITE(»3,B4.3. <19.B) • 

l.U.O.O) 

I360 CALL SOUND 1-1,-5. 3): : CALL 
SOUNO(-3.-7;4. HO. lOlsi CALL SOU 
ND(-3,-B.3,370. 1 



BFO") 

1380 CALL CMAR(84,-0O0O000O0000O 

0000000000000033I PI tooooooooo 

OOOOOOOOOOOOOCOF 

OFF") 

1390 call DELSPRITEIMS) 

1400 IF VIE1>3 IHI.N CALL COLOR I • 

12.7':: GOTO 1460 ELSE CALL HCHA 

R(l. 8,64. VIE I ) : : 

GOTO 1430 
1410 IF *<l THEN I30O EL5F I i <?" 
1420 5-SM6 :: H-U-16 :: CALL LO 
CAlEdl l.O.M): : CALL I DT.ATC (•! 2, 
A,?;>: : CALL SOUN 

0(80,2300,0.-3,4. 110,7) j I RETURN 
1430 0-(B«O).l :! W-97 :: A-0 :t 

S-143 :: CALL LOCAIt <• I I ,0.U) : : 

CALL LOCAlE(«12 
,A,S):: GOTO 1 120 
1440 W-W-16 :: CALL LOCAT1 ttll.O 

,W)n Gom noo 

I4S0 S-G'l'. :: CAU L0CATKC»12,A 
,S)i: GOTO 1070 
1460 GOSUB 170 

14 70 CM I Ml M 

1480 CAI I IH I BPRI II (AM ) ! ! CM i 

COLORM2, l.Dtl call CHAf.r.f i ■. : 

INPUT "VOU.E/-VO 

ur. REJOUEF ?<0/N>"lOHE* :: II ON 

L*: : "o" AND OWE* >"«" "MEN 14R-i 

1490 IF OWE»-"o" THEN RUN I I 111 1 

NR 



AT2 



ATI' 
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.-.■-...■. |00, . |00, ■ ■ 10 10, 

. ., -:...-■■■■. ■,-■.. ■ ■. ■■■ ■..-■■ ■ 
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■ ■ 11000. 101 
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9000, 818100. •;:■■: ■'" 
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00 

■ ■ R ■ 1108, .■■-..: 
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1000, ■ |0]00 
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• . 9,100000.001 ' ■■- . .'■ 100,0 
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7828 LOCATE 7, 1 0: PP IXT'Lh FORCE VOUS m 

UITTEE' 

7939 LOCfilE 16, J3:PPIKT 'UOIEU |- 

7948 LOCATE 8,23,1 

7950 EKD 

3988 'DM VIEKT DE V0U5 EHFERftEC DAKS CE 

LOBVPINTHE.IL M'y PA3 D-OUTPE ULTEPHfl- 

TIVE OUE DE TPOUVEP LA 30PIIE DE CETTE 

EDIFICE DE 588 PIECES, 3UP 5 NIVEAU*' 18* 

1845>.V0US OVE_ UHE HEUPE (EHVIPOM- POUR 

50PTIP, «PPE3 QUO-l... 
8019 'LA PIECE OU VOUS ETES SE DESSINE 
DEVUNT VOUS, AVEC UM CEPTAIM HOHBPE DE 
PORTCS.VOUB POUVC? ^LLEP SOIT u <C)aL,eh« 
,A <l>> i-f.it*, ZH <ft>u4nt,<P,e(i,.,rner, .'rDon 
ter.ALLEP EN 'Brat. 

3829 'ON VBU9 PPEVIEMDPA OUAND VOUS SERE 
: ■■ COTt DE LO SORTIE, et VOUS SORTIPEZ. 
..SI VOUS AVEZ LA CLE, SINON VOUS DEVE2 

"LLEP LA CHEPCHEP 
.839 'DEUX CH08E3 UTILES : UNE 60USS0LE 

VOUS INDIOUE EN PERMANENCE VATPt ORIEH- 
THTION PAP ROPPORT A CELLE DE DEPOPT - 
8848 il'mPPUIE |Uf) .. 

TOUCHE 'ENTREE' V0U9 ['ONNE VOTPF 

TION <ENtPE HUTPE'-flHli ELlE "'■ 
OTE Z MINUTES 'SOU 30^ 3EC0MU 
1050 'POUfi CEU-: 0\it RESTEfi 'rNF HI IRI 
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DATA "<t qu« 


ttpoppa!" 






740:0010 -«1 9u* 
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-n-,-n-,-H-, 
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1283 


OAIA 'tilt • 



Ui:.:lWIO "(ou ! 



. "voui hondl 
1 JI^;f]nlA ~mtrrr> 



..-, "ftl lr/! 


1238:0A1A "LA PR] 1 3201 DATA "BOOONIi 
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SOLUTION DE L'HIPPOREBUS : 








j4i 


r tur 11 I'l'. 
1 houU", "1(, 

...r ', 'P-, "R", 

. '■'-, ' Jr 


10 FOR 1=1 TO 11 




20 READ X 


|?0 ii DATA 1...., I, 


30 PRINT CHRtHI ; 


tf-^w 


i al Tali 10 


40 NEXT I 


Cl/y / n 


i , ... .1- /■■, n 


50 END 


MiJ/ 




60 DATA 67,79,77,80, 


v$9 


■.','!. 

:. )• till 


73,76,65,04, 


I 


69,85,82 


1 ■ 



PRISONNIER -<#? 



Vous avez 6t6 capture par des hordes barbares 
venues du (rn fond de I'univers. Arriverez-vous a vous 
echapper et a rejoindre la lerre? Tel est ie but du jeu 
de reflexe que jo propose a tous ceux qui possedent 
un FX702P. 

Regis BARD 



Mode d'emptoi: 

Tout d'abOfd, charger Ie programme en DEFMO. puis lexeculer 
Apres une courle presentation du jeu. vous enirez directement dans 
ie vit du suiet. Vous et votre vaisseau etes representes par le sym- 
bol© X et disposer de 3 vies par etape 
iere etape: 

Vous etes pnsonnier dun couloir mouvant. Grace aux touches de 
direction (9 pour la droite et D pour la gauche), vous devez tenter 
d Cviter la collision avec lun des deux cotes du couloir. 
Vos trots vies epuisees, si voire score esl superieur a 3000 alors 
vous passez a I'etape 2. smon reiouez I'etape 1 . 
2eme etape. 

Changement de decor.les barbares essayent dans le but de vous 
retemr. de vous lancer des missiles. A vous de les eviter.Lorsqu'un 
missile vous percute. appuyez instantanement sur la louche I jus- 
qua ce que le symbole =se place sur voire vaisseau. A ce moment 
preos. lachez celte-ci car il est interdit d'appuyer sur une louche 
durant le passage du missile. 

Ouand le missile sera passe, vous verrez apparaitre les symboles )) 
autour de voire vaisseau. Ceci signifte que vous devez absolument 
vous depiacer vets la droite (9). Pour ceci. appuyez juste le temps 
de laffichage de ces deux symboles 

ll ne vous reste plus aucune vie? Votre score est superieur a 6000? 
Mais c'est parlait! Vous pouvez maintenant affronter I'ultime 
epreuve! 

demiere epreuve: 

Celte-ci se situe dans un couloir (fixe celui-la! ) Vous n'avez plus 
denergie. si txen que vous ne oontrolez plus votre vaisseau! 
Celui-ci en eftet se baiade entre les deux parois jusqu'a ce qu'il 
rencontre Tune d'eltes (representee par le symbole 0- 
A cet instant precis vous intervener grace aux touches D et 9.Pour 
celui de gauche, pressez D (toutes ces pressions doivent etre 
breves). 

Le ctuffre de gauche est le nombre d'annee - lumieres parcourues 
depute le debut de I'etape. Lorsque ce chiffre arrivera a 400 vous 
serez (erftn) libf e! 
Mats did la. beaucoup de jours se seront ecoules! 
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: s--< irisomie 

i i*!«=l6tM7 

■■m K«i to s 

I IIRII lCPRT CSR 
2,-HIDCI ,K>:C3R 

t;imii«,Ki 
3 t=8-l:H>-l:HEX 

IK 
5 FOR 0=8 10 2 
18 UAIT 2:F0R W 

TO I3=PRT CSR 2 

i*4 "?csa 15!* 

i"; CSR Midi 
8(0.1 ) 

12 HEX! 0:KEXT 8 
14 PRI :V=3*5B:8 

=8:Rt="=l":M=" 

l=" 
18 E=7:B=16:l=8 
28 KMT WERT CSR 

E;Rt;CSR B;Ti 

CSR Et5lM 
38 C=IHT (PRHH2): 

IF C=9:E=E+I:60 

10 55 
58 E=E-1 
55 IF E>liiE=!8 
53 IF E<1!E=2 
88 IF KEY="!";B=Bt 

I 
98 IF HY=TiB=8- 

1 
188 !F KE»1 THEN 1 

2! 
118 IF BiE+5 THEN 1 

28 
115H*2:0=O+18:lF 



K(8;H=8 
119 6010 28 

128 PRI :HB1T t:\H-- 
l:H=19:V=V-l 

121 ll=»tliH=H-|:IF 
KH=8;H-2 

122 IF H-1=8!H=B<2 

123 IF «=B-211F H=B 
♦2i»lT 3:6SB 1 
98:6010 125 

121 PRI CSR hit;c 
SR BiVlCSR H! 
"<":60T0 121 

125 IF V=8 1HEH 135 

126 IF V=2;M="0*' 
01=81 

127 IF V=llM="-(": 
0)=")-" 

123 WIT 58:PRT 0;" 
PT5':l«lT 15IP 
RI CSR T;"REftDV 
?",CSR 8;"S0 ! 

129 IF L=0 THEN 18 
138 IF L=l THEH 228 
131 IF L=2 THEN 318 
135 t='6fiKE 0VER":S 

=8 
i48S=Stl:IFS=18T 

HEH 178 
145 FOR R=I7 TO 5 S 

TEP-1 
158 PRT CSR Mi" " 

155 PRT CSR Ri«10(S 
,1)1 

168 IF S«5=P THEH ! 




165 NEXT R 

17! FOP K=6 10 7: H« 
[1 7:PPI :?8T C 
SR SiHHEXTK 

172 PRT CSR 2:"I0TR 
Li'iOi" PIS': ST 
0? :IFL--8;IF 
<3e3 THEH 179 

173 !FL=I;1F0<6e! 

IHEN 175 

174 IF L=2 TKEH 179 

176 BIT 5:F0R 1=8 
I0 3iPRTCSR3i 
"DOTED PIPV 
!":PRT :HEK! I 

177 IF l=B THEH 211 
ITS IF 1=1 THEH 278 
179 IHP "TO RHODES 

",2«:IFZt=*0l! 

I' THEH 14 
138 IF Zt="K0H";PRT 

CSR 5i"BD REVO 

II...*SSEH 
185 SOTO 179 
198 FOR R=8 TO 6:PR 

T CSR B-2l"> X 

CCSR 8-2i">-X 

-<":HEXT 8 
195 KBIT IT.m CSR 

B-2i")-.-<"iRE 

T 

211 HfllT 45iPRT "TO 

EHTRES DflHS LB 
2e 6RLRXIE !": 
FOR 1=8-1 TO 17 

212 WIT 4:PRT CSR 
I;"=X",CSR 11"- 
X":KEXT I 



Z13 LMiFM 1=1 70 
H 

2i4 FIT CSR ;;"=;<"■ 
CSR i:'-r:*.n 
i 

215 P=I8:V=J 

228 FOR 6=18 10 3 S 

Iff -I 
225 Mil RiMI CSR 

BiTiCSi '-■'-' 
233 IF 6=8 THEN 268 
2J5 IF IEY<"" THEN 

128 
248 NEXT 6:?P! iW 

♦IJiKRII 5»R:PR 

I CSP. B-IS*>X>* 

iff KEWT THE 

H 126 
245 HH:R=8-2:1F 

R(B18=8 
258 IF B=l?;3=2:0=0 

»58<INI (RRHI'l 

5) 
255 SCTO 228 
268 IF KY=T;R«T 

CSR B:"=-:G0TO 

246 
265 60T0 128 
278 MIT 48iPRT "Til 

EHTRES DfiHS Lfl 

JE EHtflE !' 
275 FOR I=B-1 TO 17 

:M!T 3 
288 PRT CSR IS"=K*> 

CSR I:"-X":HEXT 
I 
285 FOR J=! TC 9 
298 PRT CSR Ji**". 






: 
! 

: 

. Si HI 

... ; . j, 

:: -tir 
-.' :■ rfY=ViiF I 

<S THEH 128 
328 IKE--' - '" : 

«12 IHEN 128 
:: ; : : J=8iB=l»:|f 

OY«"D" THEH 12 

8 
338 IF B=12iB=lliIF 
lEY'T IHEN 1 

28 
335 0=0tl5:r=IHt (R 

8NI<2):IF MSB 

=6-1 '■NEXT I 
348 M'liHEXI 1 
358 Mil 78:PRT "EY 

RSION REUSSIE ! 

368 PRT "MEC'lO;" 
PIS":E» 
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11199 
11195 
11200 
11219 
11229 
11225 
11239 
11240 
c - GOTO 
11259 
112*55 
[1269 
11279 
11999 
11919 
12999 
12919 



IF S«116 THEH 2199 

PLOT X.Y.BHS 

PEM 

FOR 1=1 TO 4 

S«tMT'PKX l«2l IF S=9 THEH <i*-\ 

PLOT Wl ->.tW\ >.R9«'! ) 

XB< f »XBT 1 >+S 

IF SCPH'XB' I>.'r&r I >*I y>2 THEH XB< I »B< I >- 

11269 

f**- I >^CHP*"5CW*-XE< ILYBri))) 

if mv r •y-'i" or «ev r >-■-- then 2100 

PLOT XB<I>,YWI>,"t- 
tCXT 

PLOT le.l.STPVSO 
GOTO 11149 

PLOT X.Y»1," ■ PLfiY 7,9-0.9 
FOP lag© TO 50 SO"M) 1.1,9-NEXT'PLffi' 9.9.9. 
9 
12912 IF IH=>1 I>€N X=*K*fiI - IH»9 
12915 PLOT X.Y.flP* X=-X*R1 ftPS-CHPVSCRMfX.YJJ 
12920 SC=^r:*190 »* > -NP*l tF MP»9 THEH CXJSlje 49099 
WTO 13999 
12030 PETiJPH 
13999 Pf£M 

13095 PL9Y 7,9,9,9 

13919 FOP I»ll TO 25 PLOT 13. I, - "PLOT 

12. 1. 1 PLOT25,I,4 f4EXT 

13020 FOP 1-23 TO 25 PLOT 13, I , "cccicccccccy- HEX 
T 
1T939 FOP 1-9 TO 21 PLOT17. I. - "PLOT 17,1-1," 

13935 rlJSIC 1,9,1,19 

13949 PLOT 17. I. "At* PLOT 17, 1*1 , -.mo" 'MHI T 29 M 
I^XT'EXPLOOe 

13959 PLOT 20,5."*" PLOT 1,3-1 

13060 FOP 1-1 TO 5 PLOT 19.3," "HfllT 50 'PLOT 19, 
3,-K-UflIT 59'MEXT 

13090 PLAY 7.0.0.0 

13199 HU3IC 1.4,9,9 Unit 64 

13119 MUSIC 1.4,7.9 WRIT 42 

13120 MUSIC 1.4,2,9 MflIT 29 
13139 MUSIC 1,4,5,9 WRIT 42 
13149 MUSIC 1,4,3,9 MBIT 42 
13159 MUSIC 1.4.1,9 MBIT 42 

13169 MUSIC 1,3,19,9 WRIT 42 

13170 MUSIC 1,3,9,9 WRIT 42 
13190 MUSIC 1.3,12.9'HRIT 29 
13190 MUSIC 1,3,19,9 WRIT 12 
13299 MUSIC 1.3. 12,9, URIT 18 
13219 MUSIC 1,3,19,9 WRIT 59 

13229 MUSIC 1,3,0,9'MflIT 190 

13230 PINK WRIT 109 LE-LE*1 T-9G0T0 190 
.?9900 END 

25009 CLS PflPER INK 3'PPIHT PPINT 
25005 PFIMT CHF«<17> 

25919 PRINT SPC<9 )CMR»« 132)"t*f»«*t»»»»*" 

25920 PRINT SPC<8>CHP*<133>CHP*'140)"r» PECLE2 .. 

25939 PRINT SPCO )CHR»< 132)"t»t*f *»»»»»»' 

25949 PRINT. PPIHT 

?5959 PPINT" Votr« runcw ■ *t* tltUVM P»r 1« 

■sorillff IfOMC." 

25060 PRINT" Tra4u* 1'aniM*! *'*»t r*f'i91* *u 

-.'-.•v*-*, '1 ' ■ ■ n b'< I'Jl f.'"'. " 
25999 PRINT" ft wi» >» la r»cuf>er«r *i» vvltaM " 

25995 PRINT" 1«» ProJ*clll«» l»r«»t P»r KOHr;. " 

25999 WRIT 1990 ZflP 

25199 PRINT PRINT" Vo-j» vou* d*rt> 1 *c#r»7 * 1'ii* 

*>» "- 

25105 PRINT" touches '"'WRIT 300PINC 

25119 PRINT PRINT 

25120 PRINT SPC'^KMPf/ 129>"L-"CHR«' 134>- DROITE" 
MflIT 300 P INC 

25130 PRINT SPC(6>CMP»<129)"K--CMPtK134>" CrtJCHE" 



WRIT 399 -PING 

25149 PRINT SPC< 6 >CHP*' 129 )"R="CMP*< 134 )" HRUT":H 
BIT 399'PINC 

25159 PRINT SPCf6>CHP«<129)"2-"CHR»< 134 1" BRS'^Wfl 
IT 300^PIMG 

25169 PPIHT SPC<2>CHP«ri29^"SPRCE»"CMR»<134>- PO"J 
R SWJTER"MRIT 309PING 

25170 PPINTPRINT 

25189 PPINT SPC3>CHP'JM39>"RPPUYEZ UNE TOUCME PO 
If CONTINl.CP" 
25199 GET K*ZPPCOTO 25200 
25299 PPINT CHR*f I7).CLSPRPER INK 6'PRINTPPIN 



25239 PPINT SPC 9 '.'CNPV ]32'>*Tt*tttttt»*|:" 

25249 PRINT PRINT 

25259 PPINT CHRV129>"Le i«U ** Pis** sur 4 t*bl* 

2526« PPIHT PPIHT PRINT ^URIT 299 

25279 PRINT CHR* 131 )"ler TRBLERU"CHP«< 133 ) "EV 
ITEZ LES TOMNERUX- 

25275 WRIT 299 

25280 PRINT CM9C13l} B 2ltr ThBL£AU*CHRK 133) "RT 
TEHTION TRPIS ROULflNTS" 

25285 URIT 209 

25290 PRINT CHPV 131 >"3»r TRRLERU-CMRrK 1 33> "UT 
^ ILISEZ LES RSCENSE'JRS" 
25295 WRIT 2O0 

25390 PRINT CHP»M31>"4«r TRBI ERi i*CMP«' 1 33 > "PR 
IRE SRUTEP LES RIVETS" 
25350 URIT 290 

25499 PPINT 

25459 PPIHT" It vous faudr* pss ms\ de reflexes e 
t de reftexloT*m "i 

25460 PR[flT"Po'jr d-livrer U belte" 

25470 PRINT PPIHTCHPt' 131 >"ET SOUVEHEZ VOUB.." 
25480 PPINT 3PC'8)CHP»'!29>"CrN NE VIT OUE 3 FOIS 

25490 PRINT PR INT 

25500 PPIHT" BOH COURAGE " HftrT 290 

2560O PPIHT PRINT PPIHTPPIHT SPCf 3XTMRr« 1 30)"RPP 

UYEZ iJHE TO".iCHE POUR COHMENCER" 

25650 GET Y* ZRP ■ TEXT ■ RETURN 

39999 REM 

30992 PLRY 7.9,9.9 

39095 FOP I«Y TO 25 MUSIC 1.0,1.19 

30906 ST-SCPWX, I*n 

39908 IF ?T'>32 F»HT> 3T •? THEH EXPLnr-E GOTO ^002« 

39010 PLOT X.I. "a" WRIT IB^PLOT X.I,* " NEXTI EXP 
LOOE 

30920 PLOT X.I,"*"-WRIT 109 GOTO 2199 

40900 WR-50 TN-5 

49005 "iC-SC+BO PI RY 7.9,9,0 

40919 WJSIC 1,TH,1,7 WRIT W9 

40029 MUSIC l.TH. 5.0 WRIT LIR 

49030 MIJSIC l.TH.8,9 WRIT WR 

49949 IF Mft-50 THEN Wft-25 ■ TH-3 GOTO 49019 

49950 PLRY 9,9,0,9 MUSIC 1 , 1 . 1 ,9'PLflY 7,9.0,9 
40955 WRIT 150 

49969 PETiJPH 

49J99 CLS' INK 7 

40195 LE«-STRVLE) 

40110 PLOT 3.0. "BONUS' "PLOT 16.0,"SCORF •■PtDT 3 
3,9, "L-" PLOT 35,fl.LE« 

49115 PLOT 3, l,STP*'BO>'PI,OT 16, 1 , STPfKSC ) 

40120 PETIJPH 

45999 WRIT 49 PLRY?. 0,9, 9 X-9 

45915 X-X*l 

45929 MUSIC 2,3.19,3 MUSIC1. 3.10, 9'MUSIC3. 3. 19.9' 
MRIT40 

45030 MUSIC 1.2,18,9 MUSIC2, 3,19, 9MUSIC3. 4.1, 8'W 
RIT80 

45949 MUSIC 1. 2. I. B MHSIC2,3, 1 ,0HUSIC3,4. 3.8 WRIT 
40 

45950 MUSIC1.3.1.8'MUSIC2,4,1,8'MU8IC3.4,5.8 WRIT 
60 

45060 MUSIC1,2.1,0'HUSIC2,3,1,B MUSIC3.4,6.8WflIT 



45099 MUSIC 1,1.1,9 HUSIC2, 3.12, 9 MUSIC3. I . 1 .( 
T40 
45199 MUSIC 1,2.8.8 MUSIC2, 3,3, BMUSICS. 3.8, f 



45119 MiJ3ICI,2.8.0MUSIC2,3.5.0'MiJStC3.3.19.8 URI 
TI0 

45120 MUSIC3,3,12,8MRIT40 

45130 MUSIC1.2.10,8>MUSIC2.3,10,8MUSIC3.4.1.8 MR 



; music? 
i MtJSICl. 
i HU8IC1, 



2.2,0 

2,10.8t1USIC2.3,I0,( 

1,1,0-MUSIC2,3,9,( 



MUSIC3. 1.1.9 MRI 
45199 HUSIC1,l.l.0r1USIC2,3,9,8'r1USIC3.1 ,1,0 URIT 

e 

WRJT40 



HUSICI 

MUSIC 1 
mjsici 
mjsici 
HUSICI 



45209 
45205 
45210 
45229 

45239 
IT89 

45249 MU3IC1 
49 

45250 MUSIC!. 
60 

45260 MJSICI 



2,5,8'MUSIC2,3.5.8 
1 ,!.0<MUSIC2. 2,2,0 
2,5,8'MRIT 40 
3.18.8 MRIT48 
2.10.8.MUSIC2.3.1B 

2.I,0MUSIC2,3,1,0 

3,I,8MUSIC2,4,1,8 

2,1.0 MfJSIC2,3-l,9 



R MUSIC3.4,l,8'Mfl 
MUSIC3,4,3.8 WRIT 
MUSIC3.4.5,8MRIT 
MUSIC3,4.6,8MRIT 

1 NUSIC3.4.3.P. MflIT 



45290 MI.ISIC1 
T40 
45309 MUSICl,2,0.8MUSIC2.3.3.8'MLr3IC3.3, 



MUSIC2,3,12.RMUSIC3.1, I 9 URI 
WRIT 



45319 riUSICl.2,8.0 MUSIC2.3.5.0mjStr3.3.10,8'UftI 
T10 

45320 f 
45330 t 

IT60 

45340 MIJSIC1 ,1. 1,9'HUSIC2.3,12,8 MUSIC3. 3,3.9 MRI 
TI0 

45359 r 



45370 MUStCl.1.1 .0 MUSIC2. 3,7,8 MIJSIC3, l.l.i 



45499 Pt.RY 0.0.9,0 PFTIIPH 

5O90O REM 

59995 RESTOPE 

59010 FOP 1-46856 TO 47063 

50920 PERO RO 

59038 POKE l,RO 

59040 NEXT I 

59050 RETURN 

50069 PEM 

50070 DflTR 12.45.45,63.12. 1?. 10,11 
50089 r>RTR 63.63.4.19,17.32,63,63 
5O099 DATA 63. 63. 49. 32. 32. 49- S3. 63 
50199 DATA 12,12,8,29,46,12,10,17 
50110 CATfl 12,12,4.46.29,12,29.34 
50120 ORTR 0.0. o.?fl.^9.54. 46, 29 
5A130 ORTft 63.63,45.45.45.45,63.63 
n0140 r>RTR 63.33.63.33,63,33,63.33 
59159 DflTR 4.14.31.21.4.4.29.29 
"iO160 PRTR 0.0.1.7.15,31.31.29 
10170 OflTR 0.63,45,63,51,45-63,51 
50109 DATA 9,9.32.56.69,62,62,14 

59199 DflTR 12.7.7.3,7.7.7.15 

59200 DATA 33,33.5l,63.5l.tl.n,0 
59210 DATA 12,56,56.48,56,56,56,69 
59228 DATA 9,2,5,2,4,12.30.63 
59230 nan o. I?. I8. 18, 39.51 ,3t. 63 
*w»?49 DATA 0,0.0.4.12.10.63.30 
59250 DATA 12,39,31.31.15,7,3,1 
-.0269 DATA 0,8.42.54,54.34,54.29 
59270 DATA 12.18,35.3741.49,19,12 
502BO DATA 14. 8.70. 46. 17. 29. 6?, ?0 
59299 DflTR 63. 63. 24. 24, 24. 21. "VI. fil 
59295 r-ATfl 32.32.32.32.32,32.32,32 
1O390 DATA 63,12,18.33,33,18.12,63 
59305 DATA 12.30,«2.6?.69.56,48,32 
90310 imiPH 



AVION 



Vous dtes le pilote dun avion et vous survolez une 
montagne. Des h6licop!6res vous atlaquent, il vous 
faut les d6truire. Attention aux lira des heltcopteres et 
aux (usees qui decollent du sol! 

Pour rentrer le programme, il faut taper la premiere 
partie, et la sauver sur cassette. Ensuite, vous tapez la 
seconde partie (sans oublier de faire NEW aupara- 
vant), et vous la sauvez sur cassette a la suite de la 
premiere partie. Faites alors NEW, rembobinez la cas- 
sette, et tapez LOAD. 



Cyril CAMBIEN 




30 FO*E*^ 1 l ' • 

60 P0KE16384.0 POJ E44 64 

70 PQKE631.131 POKE13S,! 
80 HEM 



COMMODORE 64 

288,6 

40 PRINT'OOVTRB' 13>": -- f ■ ,1 

30 PfEIHT-JM .-ulhk. HVIOH Kill ItTRijIfct Lfc PLUS 

:. _: . -.- : l-'J^IfcLE I I 

I "OIC1 VOS CuJWiNDES 
-0 F-SIMT-B - - POUR HONTiR 

« PRINT"* - CTRL - POUR DESCENDRE 

- POUR DECCELERER 

INT'JI - 2 POUR BCCELERER 

200 F0RI-S192T09732 REflLfl PCxEI.A '.3=l3*m NE7.I 
210 IFCSO1979aeTHEHPRim-]n0lEUR DhHIf lES DRTfiS !U" : END 
3©0 PRINT"! »PPUYE2 SUR UNE TOUCHE POUR JOUERI I 
316 POKE138.0 MRIT138,] 

. 

leee wta 12s. 0. a. 1^2,0. 0,224,0, 0,240,66,6.248, 6b. 0. 25;: 

1010 WTfl 123.8.255. I. 224, 127. 255. 246. 127, 255, 248, 127- 255. 232.255.25S 

1028 DATA 255,63,255*232.0.253,248,0,255*224, 1,233,0,3,232,0 

1030 DATA ?,240,0,13,192,0,31, 0,0,60.0,41,112,8,0/192 

1040 DATA 253. 246. 0.255. 240, 0.9. 15. 255. 9. 15-255-0, 24, 0,31 

1830 DATA 234.0,32,31,0,64,31, 128,128,63, 130. 128, 127,255,128.255 

1060 DATA 255, 255. 255. 255- 255, 255, 255, 255. 255, 130. 127, 255. US, 63, 255, 9 

1070 WTfl 31,254,0,4,2,8,132,8,64.68.8, 128,63,235,0,73 

1088 DATA 24,60.60,60,60.58, 126,233,60,60,24,235,24,68,182,195 

1090 DATA 128, 192. 234, 255, 254, 152-128,0, 1,3,127,255,255,127, 1,6 

1100 DATA 36.79.85.33,32,69,34,69,33-32.68.69.84,82-85.73 

1118 DfiTR 84, 32. 33,33, 32. 45. 32. 88. 82. 69. 83. 83-63, 90, 32-83 

1128 WTfl 72.73,70,84,6,65,86,73,79,78,32,32,32,32,32-32 

1139 DATA 45.32,32,33-67,79.32,63-58,48.48,48,48,48.32.32 

1146 DATA 4S, 32. 32, 67, 46, 67, 65. 77. 66, 73. 69, 78. 0,76, 68, 68 

1130 DATA 75.68.89-/6,83,82,78,79,80,79.82.65.80,72,65,30 

1168 DfiTR 72,80.80.76.65,80,76.80,62,79,76,82,79,32-32.84 

1178 DRTfl 73.82. 84, 63, 83. 66, 67. 83. 69. 67,83, 69, 68. 83, 69, 73 

1188 DATA 33,84,65,83,84,38.83,34,89,34,65,88,34,65,89,84 

1190 DflTR 93-33,34,88,65.84,88,83,84,89.65.255.13.27,41,55 

1280 DATH 69,33,97,111,125. 139. 193,167,101,195,235,233,233,233,4,233 

1210 DATA 255,235,235.233,253,235,255,235,4,4,253.255.8.4.8,4 

1220 DflTR 0.0,4.0,255,0,20,28,255,255,16,255,255,20,235.16 

1230 DflTR 255.16.255,255,255.235,255.253,255.255,255,255,16,255,20,255 

1240 DRTfl 255,255,255.255.255.255.255.255,255,^55,255.255,255,255,255-233 

1258 DATA 233,233,235,235,233,253,233,233,233/233,233.233,293,235,255,233 

1263 DRTR 255.255,255.235.255.255,255,255,255,255,255,255,0,0.32,253 

1270 DATA 255,255,253.255,255,253,235,255,255,255,255,255,255,255,255,255 

1280 DATA 233,253.235,255,255,255.255,255,255.255,255,233,255,233,235,235 

1250 DATA 253,253,235,255-253,253,16.16-253-255.255,255,255.255-253.255 

1309 DATA 235,255,255.255,8,255.255,255,255,0,255,0.235-255,6,235 

1318 DflTR 253,235.12, 12, 0,0, 8, 12. 8. 12. 8. 9. 12.3, 2S5. 235 

1320 DflTR 32,63,223,169.1-141,134,2,163,3,133-133-169,197.160,32 

1330 DflTR 32,38.171. 169,0,141,14,229,133,251, 133,254,169,51,133,1 

1340 DATA 169,43,133.252,169.208.133,255, 168.6,177,254, 145-231,136,208 

1350 DATA 249,230.252,230,255, 165.252-201,64,208,237,165.55.133,1.169 

1360 DflTR 1.141.14,220,32. 160,223.169,23,141,24,209,169.14,141,33 

1378 DRTR 208. 169.6. 141. 32. 203. 1€2. 39. 139. 128,32. 157. 125-53.201. 16 

1380 DRTfl 247,169,2,141,132,2,162.39,138.72,32.183.36-32,231,33 

1398 DRTR 104-170,202, 16,243,169,3,141,29.283,163.1.141-33,208,165 

1409 DflTR 75.141.0,288.169.123.141,1,298.32,156,33,169,3,141,21 

1418 DfiTR 288,168-128,140,248-7-288,140,249,7,173,30.208,173,31,208 

1429 DflTR 163.74,141,193,2.169.10,141,192,2,169.18.141.24,212,169 

1430 DATA 0,141,4,212,141,5,212,169.240,141,6,212,169,8,141,1 
1440 DOTH 212,32,133,33,169,17,141,4,212,32,242.37,32.237,34,32 
1450 DATA 237.34,32,193,33,32.237.35.32,183,36,32,251,35,32.237 
1468 DATA 34,32,173,37.32,79,37,32-217.37,76,201.34-169.2,44 
1470 DflTR 1.220,240,29.169.4.44.1.220.240,35.169,1.44.1,220 
1488 DflTR 240,34,169,3,44,1,220.240,43,169,16,44,1,220,240,32 
1490 DfiTA 96. 173. 1.283. 281, 66, 240. 243. 206. 1,208. 76, 231, 34. 238,1 
1300 DflTft 208,76,251.34. 173. 9-208. 281, 24, 240. 229. 296, 8, 298, 238, 138 
1510 DfiTH 2,76.9.33.173.0-298.291,138,249,213,236,0,268,266,198 
1328 DRTR 2.76.9.35-32,133,36,32-251,35.162,6,32.139-33,24 

1330 DATH 105-4.133,211, 132,214,32,108-223, 164,21 1 ,289, 280. 2U0. 177.299 

1549 DflTR 281,178.246, 172- 169, 15. 141 , 134,2, 133, 135- 163,39, 32,219.235 

1550 DATA 169,0,141.18.212,141,20,212,169,7,141,13,212,169.3.141 
1369 DflTR 15.212,141,14,212,169,123,141.13,212,36,189.1,208,74,74 
1570 DRTR 74, 56-233, 4, 168, 189. 8,288, 74, 74,74,36. 173, 4, 228, 41 
1388 DATA 46,24,195-66.141,3,288-169.2.141.16.208.169.113,141,2 
1590 DATA 203. 169, 7, 141 ,4y, 205. 36. 1 74. 133.2. 160.2, 136. 28b. 253. 202 

1688 DATA 208.248, 36,296, 2. 208,208, 11 - 2yt. 2-283, 173, 16.208, 73,2 
1610 DRTR 141.16.283.206,3,208,173,4,226.41,2,24,103.3,288,291 
1620 DATA 66,240,4,141,3,263,36.163,200, 152,76.227,35,162, 11,189 
1638 DATA 64,32. 73.255, 157, 64,32, 20*;, 16,245,56. 169,2,133,214,32 
1648 DATA 103, *29. 160.0. 177,299.201 . 32.208. 17.299. 132.48.288,245,32 

1659 DATA 183, 35.239.214. 165.214,261 ,24.^88. 223. :■*&. 152.211.170.165.214 

1660 DATH 72. 169-32. 145.209,224,178.248,47.224,179.246.71.224.176-248 
1679 DflTR 33.76.157.36.104.133.214.32.108.225. 164,211.76,18,36.17? 

1689 DRTR 205-281 - 32. 96. 'it. 6 '!■ ?6, 248. 2, 162.32,138,149.289,32,36 
1650 DfiTH 234,169. 13,145-243.76,52.36, 152.37.176,249,288,32,63,36 
1708 DATA 29R. 243. 298. 32- 63. 36. 200, 237.203. 162, 1 73.230.21 1 .238,21 1,238 
1710 DfiTA 211.76,68,36,192,2,144,221,136,32,63,36,288,219,136.162 
1720 DRTfl 179,76-68.36,184.72,291.2.249.203.164,211.192.24,176.5 

1730 DATA 199. 214, 32- 198. 229- 164. 21 1.136. 16*:. 176, 76, 63, 36. 192- 9,240 

1749 DATA 188. 136. 138. 145. 209. 169, 5, 224, 177. 288. 2. 189, 1.72, 32. 36 

1730 DfiTA 234,184,149,243,76,92,36,173, 1 92. 2. 281 , 1.^08.3.169,2 

1768 DATA 76.209.36,291,28.208,3,169.0.76.283,36,173.4,228,41 

1770 DATA 2,133,294,24,189,192.2,178,282,142, 192,2,169,191, 133,231 

1789 DATA 169.7. 133, 252. l->5. 234. 203. 1 .232, 138. 74, 179, 168,0. 169, 160 

1798 DATA 32,49.37, 169,291, 96',233,4e, 133,231, 176.2. 190,252,202,289 

1808 DRTR 237, 169. 252. 166,254.249.2. 169,234-32.49,37.165.251.56.233 

1319 DATA 48, 133,251,176,2, 138. 25.M 73. 4, 229. 281- 32, 176, 14, 201, 16 
1820 DATA 176-5- 163. 176, 76. 49, 37, 163. 177, 7b. 49. 37. 169. 32. 143. 231 
1330 DATH 96. 145. 251. 165. 252. 24. I W5. 212. 133.^52, 169. 3. 143, 251. 165. 232 
1848 DRTR 96,233,212,133.292,96,173,38.208,268-92.173,31.208-248,86 
1850 DATA 201,2.240.57.104,104.169.0-141,4,212, 163.10.141,39.208 
1360 DRTR 169, 24. 133- 214, 169,2, 133.211,32, 188,229, 169, 1,141 ■ I J4,2 
1879 DRTR 163-0. 133. 199- 163. 160. 160. 32. 32. 30. 171 .32.252,37, 173.141 
1330 DATA 2,201,1.208.249.169.0-141,24,212,76.0,34,169.10.141 

1830 DATA 48.288,32,292. 37, 162,2,32,219,37,32,237,34,32,183,36 
1988 DATA 32.251 . 35. 32. 136. 35.36, 32. 141 , 37. 76.34, 37, 173. 16.283 
1916 DRTR 248. 244, 1 73. 2. 208, 201. 89. 176. 237.1 7 J. 4. 2^0. 291. .16. 176, 230 

1320 DATh 1 62. -_',.V. 133. 35- 132, 214, 24. 195. 2b. 133. 21 1.32. 163- 223. 169 
1930 DATA 1.133. 135. 169.51 . 32 . 2! M- 253. 36. 162.4 . 183.20.4, 168,206 
1940 OATH 192,38,248.3.152.157.20.4,96.169,48.157,20,4,202.76 
1958 DATA 213.37,169,145.56.237,153.2.141.8.212.96.169,0.141,11 
1960 DATA 212, 169-8-141. 7, 212, 141, 8, 212. 169.28. 141. 12. 212. 169,8 

1978 DfiTA 141,13.212,169.129,141,11,212,96 I 



TOUR DE CARTES 



Laissez - vous epater par votre ZX! Serait-il devenu te- 
lepathe? Peut-etre le saure-vous des que vous aurez 
entre ce petit programme. Tous les caracteres qui 
pourraient vous paraitre inhabituels se trouvent dans la 
table d'equivalence. Le mode d'emploi est inclus dans 
le programme. 

C.LACOUR 



ZX81 



198 GOSUB 1909 
105 PRIMT RT 2-5;' 
<4>".TA8 23;"<#>" 
110 FOR »1 TO 3 
115 LET H»3 



12 



LET ' 



THEN LE 



125 FOR 1=1 TO 21 
130 IF C%( IX TO 13 
T DS—ST+C* I >'2 TO 

133 IP CW1X TO 1 '="2" THEM LE 
T D*="I'*C1UX2 TO >+"Sfc*r." 

149 IF CK 1 X TO 1 )="3" THEM LE 
T M«"r*C»(lX2 TO H"ftre." 

145 IF C»<IX TO 13-"4- THEN LE 
T DI-"r*Cl(IX2 TO >*"»»4," 

150 IF D»<2 70 2)«"x" THEN LET 
09="W+0%'.3 TO 7, 

153 PRINT RT V.H.W 

169 LET H=.H*? 

165 IF H=30 THEN LET H-3 

170 IF H=3 THEM LET V="V+2 
175 NEXT I 

189 PRIMT RT 15.9, "■Hu.eUefcol 
onne Stout lent ■votreB" I "■Biart* 1 ■ 
■t»P*z«surSfe.3.4B" 

135 IF IMVEVSO-l" AND INKEYSO 
"2" RND 1NKEYS<>"3" THEN GOTO 18 

198 LET ftSwlNKEYS 

1^5 [F Q*="I" THEN LET i?*="312" 
?09 IF Dt-"2' THEM LET P»"*123" 
2»5 IF Q»="3" THEN LET Q»=' , 231" 
219 PRINT R T 19,8;"8m iTl>etltt» 
ontntH 



733 IF CM11X TO 1 >="4" THEH L 
ET D«"-»l<1u«OT 

360 FOP 1=1 TO 120 

365 NEXT I 

375 FOP I»7 TO 2 STEP -1 

380 PPIMT AT I .21 . '' ■■iai Baaa ar 

335 NEXT I 

399 PRIMT RT 2,21,»(11X2 TO 2 

• -TRB 29) C* UK2 TO 2- 

355 PPIMT RT 7.21,08 

490 PRIMT RT 17.1,-RLOPS- WE 
N DITES".TAB 1-"V0US' SURPRENANT 

'495 PRINT AT 20.0. , -fcn B WcoMM-n 
c-lcn'SBr 

410 IF INKEYS-"0" THEH RUN 

415 IF IHKEYSO"N" THEN GOTO 49 
5 

420 FOR 1=1 TO 20 

425 PRINT AT I . 1 ; ES 

439 HEXT I 

435 PRINT RT 29.0; "■»■»* ■VnieSPro 
ch-inelfoi*. . . 9HHV 

440 STOP 

1909 REM PRESENTATION 
1005 FRST 

1998 CLS 

1810 PRINT " f— — — — — — — — — ' 



1915 FOR 1-1 TO 20 

1028 PRINT AT 1,0;" l";TH8 31 > 

1925 NEXT I 

1830 PRINT 'I 1 



rtes. . . ■§-■■■" 
213 LET J-l 

229 FOR A=l TO 3 
225 LET V»4 

230 FOP I=VAL QS'ft TO H> TO VRL 
04' R TO AH13 STEP 3 

235 PRINT RT V,9*VRL $*< A TO fl> 
-6 i " 

240 LET TS< J )-C»f I ? 

245 LET JaJ+1 

250 LET V=V+2 

253 NEXT I 

269 NEXT A 

265 FOR 1=1 TO 21 

279 LET C*'I >»T«I> 

275 NEXT I 

239 PRINT RT 19.9: "■J«t>ls«i> 
■nouve*uBt*sB=*rt*sV 1 "••«•*■» 

283 NEXT •/. 

290 PRINT AT 2,1*E» 

2«5 PRINT AT 19.0;"I";E*-" ■"-£ 

i.; r 

309 REM CRPTE CHOITIE 

393 PRINT HT 8,21 •"»■■■"**" 

T19 FOP 1=1 TO II 

315 PRINT TR8 21 ."wxrtttttm" 

329 NEXT I ___ 

^25 PRINT TAB 21 , " •:m>m<»M" 

330 ppiMT AT 2,i;"PENSEZ FOPTEM 
332 PPIMT TAB 1;E* 

335 PRINT TAB 1 ; "ET VOUS LA VEP 
PE2",THB 1,"S0PTIP DU JEU >■ 

349 IF CK11X TO n="l" THEN L 
ET 6»=' , ^o*ur«J" 

345 IF CtC 1 1 >' TO 1 >="2" THEN L 
FT D*-" ■=*■"'*•««■' 

358 IF C*U1" TO l>-"3" THEM L 
ET P»*"Btref l*«l" 



1043 PRIMT RT I,: 



"tO'jrBJefc«rt* 



;TRB ! 



1050 PRINT TAB 1 iE* 
1033 PRINT TAB 3;"LR PRESENTRTIO 
N OE CE TOUR"; TAB 1 ■ "EST SIMPLE. 
IE VRIS DISPOSER" 

1069 PRINT TA8 1 ; "3 COLONNES OE 
7 CARTES PRISES", TAB 1;"AU HRSRR 
D DANS LIN JEU DE 32" 

1963 PRINT TAB 1;" CARTES. PRRMI 
CELLES-CI V0US";TR8 1>"CH0!SIREZ 
OU FEREZ CHOISIR UNE" 

1070 PRINT TAB 1 ; "CARTE SRNS LR 
HOMMEP. IL V0US";TRB 1;"SUFFIRR 
ALORS DE ME PPECISER" 

1073 PRINT TR6 1;"DANS QUELLE CO 

LONNE (1,2,3) SE";TAB lfTROUVE 

VOTRE CARTE." 

1988 PRIHT TAB 1 ;E» 

1935 PRIMT TRB 3;"APRES OUEL&UES 

1099 PRINT TRB 1;"JEU OE CRRTES 
LR CARTE CHOISIE" 

1993 PRINT AT 20. 0i "PourBiousr ' ■ 

1100 FOR 1-1 TO 28 
1193 NEXT I 

1 110 PRINT AT 20.0> n l 

r 

1113 IF CODE INK£Y»Oil3 THEN GO 

TO 1993 

1129 FAST 

1123 FOR 1=1 TO 17 

1139 PRINT AT 1,1 jE» 

1133 NEXT I 

1200 REM INITIALISATION 

1219 LET R8-"lQiai«lxlvldlrll2fll2 



;■-■=! e t'-r: .13 ■-: emce 




... 


EMTRE Z 


■--;:■;.-...•. 


SEI'OSMfl GR100A 






CARAT. TERE - 


;; - 






£ Iir/EPSE 






» |H ■;■: 




4 


■ ■ 






II ■ 






■ ■ : 






1 INVERSE 






■ 






< INVEPSE 






• INVEP^-E 






* INVERSE 






- INVERSE 






« INVERSE 




■ 


7 INVERSE 






. INVERSE 






. INVERSE 






. INVERSE 






8 INVERSE 






1 INVERSE 




a 


2 INVERSE 




a 


3 INVERSE 




« 


4 INVEPSE 




« 


e . INVERSE 




• 


6 INVERSE 




6 


7 INVERSE 






8 INVERSE 







3 INVEPSE 




c 


A INVERSE 






B INVERSE 




b 


C INVERSE 






D INVERSE 




d 


E INVERSE 




e 


P INVEPSE 




f 


C INVEPSE 




9 


H INVERSE 






I INVERSE 




1 


.1 INVEPSE 






K INVERSE 






L INVEPSE 




t 


M INVERSE 






M INVERSE 






INVERSE 







P INVERSE 






INVERSE 






P INVERSE 






S INVERSE 






T INVEPSE 




t 


U INVERSE 






V INVERSE 






U INVERSE 






X INVERSE 






Y INVERSE 






Z INVERSE 




1 




32*2) 

("t4«4-. 

1213 
1220 
1223 

1230 
1233 
1240 
GOTO 
1243 
1238 
1235 
1269 
1265 
1399 
1393 



2v2d2r 2*30 30 3«3v3v3d3r 3*4-54 

■4»4d4r4a" 

DIM C«<21.2> 

DIM T«<21,2) 

FOP 1-1 TO 21 

LET A-f 1+IMT <RMT>*32)>?2 

FOP J-I TO 1-1 

IF C«'J>"fl»'A-l TO fti THEN 

1230 

NEXT .1 

LET CM I ^A«'R-I TO HI 

NEXT I 

SLOW 

RETURN 

SAVE "TOUR DE CARTE*" 

PUN I 



suite de la page 4 



^ p, P Pv.e« 



. PRlNl D«;"CLOSE SCORES" 

I RETURN 

> END 

» REM MUSIOUE t CHANT t>U Mft 
R1AGE (DE BRE33E 
EN FRANCE) 

» ¥ - I 

) P - 74lD - BO! OOSUB 370OtP - 
7Ai 60SUB 3700iP - 74i GOSUB 
3?OOiP - SOtD - IAOi GOSUB 3 
?OOtP • 7AiD - BO I GOSUB 370 
OlP - 74iD - !&0: GOSUB 37O0 



) P - £4:0 - 240i GOSUB 3700iD 

- BOl GOSUB S70OIP - 6Bl GOSUB 
37001 P - 64i GOSUB 37001P - 

ft2iD - IfcOi i,n' ,iin (7O0IP - fc 

fl:D - ll'i: I'.OMH. ".!'■■' 

> P - ftOiD - I60i QOSUB 3700iP 

- 74:0 - Dui D08U8 J7001P - 
76»D - 140i GOSUB 3700i D - 
Ol B08UG '"""■: IF V I IHCN 
V - Y • 1: GOTO 3390 

> P - &4>0 " Z40i OOSUB 3700iP 

- hO:D - lAOl GOSUB 3700lP - 
74:0 - il,,-. f,n: in- ..■.■..:!■ - //, 
tD - lAOl GOSUB 37O0tP ■ HOi 

D - BOl GOSUll 3700iP - 92iD - 

:*■< 
1 GOSUll 1700 
) P - BOtD - BOl GOBOB 3700IP - 

n; : r.ii'-.ni' ./■"■:\ M": cum in 

14 



34BO 

- -1 '?■ 1 

-,.-"■ 
■.]■• 



-./r,., : j- /.i: nn-.tm ■ '•■■'■' 

Jf,: GOSUB 3700: GOSUB 370OrP 

- 681 GOSUB 37O0: GOSUB S70 
OiP - 74: GOSUB 3700lD - 160 
: GOSUB 370O 

P • 8O1P • 761 GOSUB 3700iP - 
64iD - 240: SOSUB 3700iP - A 
B:0 - I6O1 GOSUB 370O:P - 74 
:D - BO: G0SU8 3700lP - 7ii0 

- 160: GOSUB 570010 - B":P - 
BO! GOSUB 3700 

D - 240lP ■* 64t 00) 

- BOiD - GOf GOSUB 370OIP - 
B2: GOSUB 3700tP - BOl GOSUB 
3700lP - 7/,jD - 160: GOSUB 3 . 
700:P - &B:D - BO: GOSUB 57<- 
OsP - 74)l> - 160t BOSUB S70O 
,p . 7fiiO - BO: GOSUB 3700lD 

- 2401 P - SO 
GOSUB 370O 

D - Z40i B08UB 



1 P ■ SOlO - ITOi GOSUB 3700iP 

- 74iD - 40l GOSUB 3700iP * 
BB:0 - 120i GOSUB 370OiD - 4 
0: GOSUB 370O 

j p - 84iD - I20i GOSUB 37O0iP 

- 7AtD - 40: OOSUB 37OOt0 - 
1201P - 6Sl GOJ.UB 3700lD - 4 
• i! GOSUB 37001 P - 74i0 - 120 

1 GOSUB 37001P - MiD - 40: GOSUB 
3700 
> P - QO:D - 120i GOSUB 3700lP 

- 74iD - 40i GOSUB 3700tP - 
76jD - I 20i B08UB [700lP • A 
9:D - 40: GOEiUB 3700lP - B4i 
D - 1 20) OOSUB 3700 

) P - 7AlO - 401 GOSUB 37001P - 
BOiD - 1201 GOSUB 3700iP - 7 
4:D - 40: GOSUB 370OtP - 8Bi 
- 1201 GOSUB ".700:0 - 40i GOSUB 
3700iP - B4:D - 120i GOBUB 3 
7O0iP - 76:0 - 40t GOSUB 370 
OiP - B4iO - 1201 GOSUB 3700 



P - &G:D - 1201 008UB '""■ I 
.. 401 BOl UB t700i0 l»i 

OOSUB - 'OOl D •!"■ SOSUB 
.... |, 1 ■..., 



[TOO 
1 D - «'M OOSUB ' ■"<■■ 1 OOSUB I 

OOl I B ■ 'OOi ','1 •""!' 

■ MttD - I20i OOSUB I700iP ■ 

TlMD - «0l QOSUB 
■ f - AGiD - 1 301 001 1 1 1 

I'.c r.OMll. :>■-, : \- . 74. n . 

I20| OOSUB ' '00«P - A«lO • 4 

Oi QOSUB 'OOll BOlO ! ■ 

1 r.u' UB 1700 

. I ABiD 120i BOBUB t700iD 

40i OOSUB I700iR - 74i0 - 

UOi OOSUB 3700iP - A4:D - 4 
■ OOSUB I70OIP - fl<-,,:j - 120 
1 SOSUB 1700 
, 1 MiD a 40 I SOSUB (700lP - 

■, 1 D 1 '"- D08US I700IP - '■ 
G:l) - 40l GOSUB 3700lP - B4| 
1 1 ■■: OOSUB 37001 D - 40iP 

-■.. 0OSU8 37oo 



J630 
1A40 
t&SO 

366" 



IF V - 1 THEN 
3530 

p.i ruRN 

HCM NM1ANM 



GOTO 



'A / 21 ■ XA / 2 THEN 
DPftU 4 AT 273, 12 

■•] Di'A" " at 279, 



■ 1 mi ■! HCOLOR" ' 

273,1201 MCOLOR- 
275, 120 



f.MMlli 



■,,■... I- 1 t\)UH 

1693 RIM ROUTINl 1 Mlj'ilOUf 

./,.,, FIJI I .".U . I ■ : I In I /C.V.I): ITIII 1 
'■■,: 1:1 Ilil.PI 
3710 FOR I - 7/0 TO 79<>i READ Ol 
POJ I 1,0: NEXT 1 KESIORE I 
RETURN 
(720 OAT* 17 "..40, 1V2. 1 56. roll. 



3,2i 
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la page pedago— 



Sommaire 



TIC TAC TOE, ou comment reviser voire tactique dejeu.et s 

soirement, voire anglais 

DANS LA LUNE, lastronaute savant? Pas vraimenl. Essayez le. 

vous nsquez (peut-etre) de laire une bonne operation! 

Par J. TORDJEMAN. 



TIC TAC TOE 

C est amsi que les anglo- 

saxons appellant le jeu de 

MORPIONS aussi populaire 

en France qu'outre-manche. 

■ae preciser que 

pour gagner il faut occuper 

rar>g6a de trois cases 

verticaies ou 

landls que ladver- 

saire essay© den (aire autant 

tout en sefforcant de vous 

a -oute. 



Dans un morpion pedagogi- 
que com me c'est le cas ici. le 
occuper une case est 
subordonne a la foumiture 
d'une bonne prestation de 
lypescolaire Vous voulez par 
exemple vous emparer de la 
case 8 : it faut d'abord mettre 
une phrase au tut ur... etc... Si 
vous etes incapable vous fai- 
tes passe-tour Vous vous 
consolez en vous disant que 



vous avez apprls quelque 
chose, car I'ordinateur vous 
indiquece que vous auriez du 
faire. 

Comme on le voit dans un 
"morpion pedagogique" il ne 
suffit pas d'etre un bon stra- 
tege il faut aussi etre bon en 
anglais.-, ou le devenir. 



-n 99/* A 



: ::...■ . ■ ■ 

12 II CALL COLOR(C.7, 1>: : NEIT C 

■ ■ 

■ ' ■ ■ : . ■ ■ . 

DOM ZE 

JB 78* 
220 DISFT.-- IC "AC TOE " :: DISPLAY I 

WAY AT'o, l!):-tHo pltyn-s- 
-■5'-' DISPLAY ATU4.1) : "flMf o* the (|r s ; player:":" ' 

230 ACCEPT ATMS. DBEEPiJOUEUKt '. 
260 ACtF-' ATt20, DBE£PiJ0UEUR*C21 
370 FOP IM TO 2 :: FOR J.l TO 9 :: PRISU,J)»0 :: I 

■ 
290 OOSUB BSO :i GOSUB 930 



300 1 



- : ■< - ■•■ 



t*Zi -: 



I 33G 



. already engagei 



:VERB*<3,V! 



-'"j'i'jp 'T'- : 






GOTO 3IO 



310 CALL HCHARd! 

320 DISPLAY AT<I2,1>|J0UEUR*CI>| • choose a nuH 
.'.S!:; IF <S-Ci)Oft(K'49>OR<K>57)' 
340 J-K-4B :: GOSUB 9SO 

330 IF PRISM. J)-J OR PRI5C2.J)«J THEN DISPLAY 
pre** another nu*(r" :: GOTO 530 

36Q DISPLAY ATM2, 1): JOUEUR*M> I "YOUR TASK IS EXPLAINED IN ";J 
370 ON K-48 GOSUB 1020.1070,1120,1180.1240,1310,1360,1420,1480 
380 DISPLAY AT M7, 1 1 : "no- *lnd the -using -ord5" :i DISPLAY ATL20.1 
:: ACCEPT AT ( 19, 1 ) VAL I DATE (UALPHA, - ' - ISIZE (-28) : REP* 
390 IF REP*-RE* THEN 430 
4O0 IF REP»»RE£* TFeIN 430 
4IO IF REP*-R£EE* THEN 430 

420 DISPLAY o-'2!,li:-«-onq,« wqgpit inn imx>r - : RE*- VERB* (3, V) : t GOTO 460 
430 PRISM, Jl-J :: DISPLAY AT <22, 1 > : "your anuer is correct" :i DISPLAY AT1J* 
O);" 

44'.' CALL HCHAR<L.C,lll-9aM-l)) 
430 GOSUB I3SO 
460 DISPLAY AT (24, I) :"n«t 
470 ACCEPT AT<24,28) :CON* ; 

480 ' INITIALIZE DATA 

49'j PRINT "ONE MOMENT PLEASE": 

300 PRINT "by the My thi» 1* 

310 RESTORE SBO 

320 FOR 1-1 TO 13 

SJO READ SUJ*M>:: NEXT I 

340 FOR 1-1 TO 13 :: READ VERB* ( 1 , I > 

330 READ VERB* (2, I > 

3AO READ VERB*I3.I! 

370 NEKT I 

390 DATA MR SMI TH, TON, DAD, DOCTOR ADAMS.OLD JOE.O 

OM'S BROTHER, HE 

390 DATA OUR CHILDREN. THESE MEN, THOSE STUDENTS, TOM'S BROTHERS . THEY 

MM) DATA PLAY, PLAYED. TENNIS MITH MARY. HELP. HELPED, JANE TO PACK, MAI T.MAI TED, FOR T 

-IE BUS HERE . MORK , WORKED, AT HOME 

(.10 DATA LISTEN, LISTENED, TO THE RADIO. SLEEP. SLEPT .ON THE SOFA, DRINK, DRANK, ALL TM 

E MHISKY.BLTY, BOUGHT, SHEETS 

620 DATA SPEAK, SPOKE, TO HAP>. 

-.30 DATA TAKE. TOOK. THE MORNING TRAIN. .GET, GOT, UR EARLY. .FORGET .FORGOT, TO TAKE TM 

TS CAMERA. 

•--40 DATA LOSE. LOST, A LOT OF MONEY. , FEEL .FELT, SAD. .COME, CAME. BACK LATE 

^30 RETURN • ■ 

i60 REM INTRODUCTION 

4.70 CALL CHAR(96.-FFFFFFOOOOFFFFFF") 

690 CALL SCREENM3):: DISPLAY AT ( 10. 1 1 » : "ENGL ISH" 

69YJ DISPLAY AT ( 12. 71 J "TRANSFORMAT IONAL" 

700 DISPLAY AT(I4,11) : "GRAMMAR " 

'10 CALL HCHARI4.4,96,26> 

720 CALL HCHAR<20,4.96,26> 

~?Z0 CALL VCMAR(3,4,9o, 13) 

740 CALL VCMAR(3,29,96, 13) 

750 FOR 1-1 TO SOO :: NEXT I 

7AO RETURN ' 

770 • GRILLE DE JEU 

7BO CALL CLEAR 

7TO CALL C0L0R!3. 2, 16,4,2. 16): i DISPLAY AT<4,2)i"2 9 4":- "| ■ 7 3 3"«" "i" 6 I B 



r CHILD, T 



IS MAN. THAT STUDENT 



Rt'j... 



CALL CHAR(34,"E7E7E7E7E7E7E7E7-) 

CALL HCHAR<?,2,96,S1: t CALL HCHARMO. 3.96,BI 

CALL VCHAR<3,2.34.8> :: CALL VCHAR<2. lO, 34, 81 

RETURN ' 

' LISTE DES CONSIGNES 

DISPLAY AT(2,10);'I turn into plural" 
insert NOT" 



■S s-jqqe' 



uggw« 



DISPLAY AT*3, 

DISPLAY AT!4, : 

DISPLAY AT<3. 10 

DISPLAY ATf6. 10 

DI5FLAY AT<7, 10 

DISPLAY ATIB,10I:"7 attract attention" 

DISPLAY AT(9.10i:"8 talk about future" 

DISRLAY AT <IO. !«):*? report paat *act»" (I RE TU 

' EFFACAGE 

CALL HCHAR* 1^.1,32. 184): : PE IIJPN ' 
^-INT(RNDalO)*! :: RETURN -POUR TIPEP U 

■ . ■ ■ ■■.■:■(■! r,,;t i [Rl I ' WMM 

V-INTfftNDR9)*| :: RETURN 



T*fU*<-.\ 



• • ETUDE DES 9 CHOIX 
' PEM I plural 

■' -rifj.3)**. : : GOSUB 970 

• DISPLAY AT ' 13, I )!SUJ*'S>»." "fcVERB* (I . VIl'S * 
. RES' ■-U.il ■■■■ I ■ " "' ' "»! I. VI 

■ H ' I, VI 
> PECE*-"riCT"»." "t>'/ERP*(l.V) 
■ • = u : ; C-6 : : RETURN 

. ,.; ,. j .irjii ,,rit 

v i j GOSUB 970 
QJ9PLAY AT(lS,l>lSUJ*(S)l" •IVERBefl.V) l"l I -' I 9H I, 
|*(8>1>* I")'.'- '«l P *VERB»U,V) 



RESTONS SIMPLES t 

Cette pageeduc.i* 

jux ertsetgnants. 
requipe de Redi 

... 

valeur quant a Ea qualite 
pedagogique de: . 
mesouartic^es puDl^es Les 
emanant d ensei- 
gnants seroot to , 
bienvenues eltes seront 
pubhee^ el 
auteurs concernes 

P G . •' 





A VOS MARQUES 



■ 
GRATUITES TEXAS 
Orgamsees par TEXAS INSTRU- 
MENTSet DOM. avec le con- 
cours d-HEBC 
nfies gratmtes cone-; 
hsanon des calculatrrces pro- 
grammables oo nc 
scota"e el ammees oar Roger 



DiCt. sotc;: 

Renseigrer- 1 
tpor-s CP" ■■■ 
I?) 831 60 06. ou ati 



ill, 

. . . 

. ■= : : crFTUBN 

■ I FMISStOM 

GOSUB 9S0 :: DISPLAY AT ( 14. I ) : JOLCUR* < 



RE»-"YOU CAN -(.VERB*U.V) 
REE»-"YOU MAY "tVEC&l 1. 
REEE»-VER&*' I . 

DISPLAY ATfia.U s-YES.MY OEAR- 
L-o ;: C-8 :: RETURN 

REM 4 REFUSE PERM 

GOSUB 980 :i DISPLAY AT ( 14, 1 > : JOUEUR* ( 



' 



ftE^-'DQN"! 'fcVERB*U,VI 

REE»-"YOU CAN"T "iVERB* ( 1 . V) 
REE£»--YOU MAY NOT " 1.VER8* ( I . V ) 
DISPLAY AT(IB, 1):-N0,MY DEAR" 
L-4 : : C-B : .- RETURN 

REM 3 SUGGEST 

GOSUB 980 II 0I5PLAY AT < 14, 1 > : J0UEUR4 < 



RE*-"MHAT ABOUT "tVERB* ( 1 , VI t." ING- 
REE»-"ME COULD "fcVERU* I 1 , VI 
REEE»-"MMY DON- T ME -«,VERB*(I.V) 
DISPLAY AT( 18, l)i "I'VE GOT AN IDEA' 1 
:.-(. tt C-6 ■■ RETURN 
REM o AGREE - 



lit" YOU MANT TO -IVERB*U.V)IVERB*I3 



DISPLAY ATU4, I) : JOUEUR* f I ) I "- WHAT ABOUT -; VERB* ( l.VI I " IN8"t V 



<3,1 



RE»--LET*S -fcVERB*(I,V) 
REE*--LET US "IVERB* ! 1 , V> 
R£EE*--ME COULD "».VERB*< 1, V) 
DISPLAY ATIIO, 1 ) j "GOOD IDEA »■ 
L-8 tl DM II RETURN 

REM 7 LOOK PREST CONTINU 

GOSUB 960 ii GOSUB 9SO ■■ DISPLAY AT < 14, III 
DISPLAY AT<!S,l>:SUJ*<5>fc- "(.VERB* ( 1 . V) | "S 
RE*-SUJ*<S)t" IS -LVERB*(1,V)I.-INB~ 
REE*--ME-1- IS -&VERB«<I,V)L-!NB" 
R£EE*-SLU*CS)1.- IS "fcVERB*( 1 , VH." ING" 
DISPLAY AT(IB, l):"LOOK' TO-DAY * 
L-i :: C-4 j t RETURN 

REM 8 FUTURE 

GOSUB 960 l| GOSUB 970 :i DISPLAY AT I 14, III 1 
DISPLAY AT(13. l):SUJ*<Slti- -I.VERB* < 1 . VI ! "S 
RE*-SUJ*<3)I.- MILL "*VERB*<1.V) 
REE»-SLU*<S)*- IS GOING TO "K.VERB* ( I , VI 
R£EE*-SUJ*(S)I."-LL -IVERB* ( I , V) 
DISPLAY AT ( IB, 1): "SOON ■ 
L-8 ! : C-B ;s RETURN 

REM 9 PRETERITE 

GOSUB 9iO :: GOSUB 970 ;: DISPLAY «ni«.l): 
DISPLAY ATU3,1):SUJ*'S)&- -4VERB* H , V) I "S ' 
RE«-SUJ*(S)*- "LVERB»!2.VI 
MU-Mi.ltC',1',- -t.VER8*<2.V) 
R£EE*-"ME-t.- -«iVERB*t2,V) 
DISPLAY AT<18, 1 ) i -YESTERDAY - 



FOR J- I 



S-S'PRISIL.JI: 



CKT J i 



NE1T L 



ISOO 
1302 
I304 

IS10 

1320 t 

1330 ■ - .. — —..■».. — 

1340 ' PARTIE TERMINEE 7 

ISSO S-O tl FOR L-l TO 2 i 

1360 IF 5-43 THEN loSO 

IS70 DATA 3,9, I, 3, 3,7. 3, 8,2,3, A,4, 2. 9.4. 3. 8.4, I, B.o,2.7.ft 

I3BO RESTORE 1370 

1390 FOR L-l TO 8 :: READ A.B.C :i IF PRIS ( I , Al *PRISO , B) *PRI3 

I600 NEXT L 

IA10 RETURN 

1620 DISPLAY AT(24, Ili-pre** enter" tl ACCEPT AT 1 74, 1 71 BEEPiCDN* ! 

1630 DISPLAY ATI3.4I :"qa«e ov**--;- "! JOUEUR* ( I 1 t * I* the xlnner" 

1640 DISPLAY AT (20. 1 )i "PRESS" j " 1 to replay (mm pi lyrrt) "I "2 to replay InlM. 

layer*»-:"3 to quit" 

loSO ACCEPT AT<24, IIVAt IDATE ( " 12^"l OEEPlR II IF R>3 THEN IA30 i) IF F»-I IH N : 

O ii IF R-2 THEN 1670 n IF R-3 THEN CALL CLEAR it STOP 

I660 GOSUB 7BO II GOTO 270 

1670 GOSUB 780 :; GOTO 240 

1680 DISPLAY ATI24. II: "PRESS ENTER" II ACCEPT AT (24. 2BIBFEPiCON* 

I690 CALL CLEAR :i PRINT "qaaie over -j 'notirxty Hint" II GOTO 1640 



,C)-I3 THEN lo2© 



CALL CLFAR 



LASTRONAUTE SAVANT 



Des vaisseaux spatiaux porteurs 
denombrcs.op^rationsarTthmeli- 
ques, station spatiale. immeubles 
menaces d'effondrement. voia 
de I'E./lO. dans I'espacc. par pe- 
tits ct grands. Voire mission : trou- 
ver la solution inscrite dans I'un 
des 3 vaisseaux mobiles Vous 



avez une station spatiale a 3 ca- 
nons (laches E. D, X) pointers cha- 
cun en direction d'un vaisseau. Et 
en plus, une cite sous voire pro- 
tection et sous la menace do I'en- 
nemi Bon calcul galacttque ' 

J. TORDJEMAN 



I -.. CM i , | | | M i '.' I i i HI ■ . : ' >«■ i -' i" : ■ I I COLOI I 

\a- i.r.Hiw ATII .'■■' I ■■■■" DNAOTI BAVAMT" :; f •* i M 
IV DISIl AY At (1. 1 .( P'd'J «l:".i» .'HIM HI AT ION OMTIALE'I I "t '.il 
tit, I HjN": I'ARITHJalllOut, S VAIBB1 

IM DISPLAY at - ■•. I > : "AH rtf-At tMWi. rtmtPMn CHACUH-i i*UM HOtHW : 
1,1 i. ' • I I . I •! "I I "1 *.i ■ r.,t I'l I 'OPERATION. ' 



I INI. OP 



ISO DISPLAY AT(19.1H 
i •(•»»! CROU ERA. . . " 
I to DISPLAY ■•' ■ i . 1 1 : T r ii n' 
'a»' unl FOUGM "" 

..-. CPU • I '•-'. !.■,<: : H '4 it '. IHCN TOO : t CALL CI 

■ !, . i , DIBrl AV A' 115, ■ ■ ■ rouchM I. 



■.t -jiiir. CCK1UEZ' 

i n n mi mo if ! 



• HI H -■ IMM 1114 C. I)t I A VII I 
<R i i DISK.AV Al '1 ■■. ■ 



Suite page 16 



ai*Va*»^afl 



15 



la page pedagogique 



la page pedagoss 






■ 

12 TO 14 it 

i.D». ' 



■ ■ 



■ ■■ 



•2.D4.44.T* 



; 

v. -.-<■*. b*,v**. ro.v9«,65,v6*,as,v7* 

.. ,V49, ,VS*. "0,V6*.71.V7*,72, 
i. 1.1,9, 1.3, 16. 1.6.16,1, 

■*■• BilMH"! .1 

-::-■>■.■.■ ■ ■ ■ ■ ■ 

, , . . :-.:.... i . i , F0FO a l 

1 ■ . ■■■■.--! 

■ 

| . 



■ 



' II 



: if FFFFFFFF" 



390 call CHAR 1124, ■■-■■.!■■ 
i . i- •.- if IFOFOF OTOSOIOO*- > 

%M> CALL LWUX-rFrfFFFKIIlHffl 

4IO (AIL CMARU29,-FOfl K»."FFFFFFFCFCFCFBFO-l 

,. . . ■ —{.<•£ ofFFFFFFFFFFF". I ; ". . "FFFFFFFFFFFFEOC 

CHMt(l3S, B O000OO3i 60C0B408-, 136, *102OFE©O00FE2OtO-, 143. -08B4C06030* > 

440 ' 

t SIA1IUM II 1MMEU8LES 
4AO CALL MCHWdl, 1.124)11 CALL MOWR (1 2. 3. 1 251 ! : CALL HCHARI 14. 5,1261!: CALL HC 
W(I5,!, 1271 

4TO CALL VCHARIIt. 4, 128.51:; CALL HCHARI 1 ".. 3. 128,41 
48". CAIL KMARIlt. 3.1291:: CALL HCHAR ( 12.5, 1281 : J CALL HCHAR ( 1 4.3, I 281 : = CALL HC 

49o CAL l' HCHAR (I I.*. lilt: : CALL HCHARI I 2,6, 1 321 : : CALL HCHARI 14.6. 1331 ! : CALL HC 
HAR(I5.6, 134) 



H0MRUO.S. 137) 
330 CALL hEhAR(10.4, 1381 

340 CALL HCHARI9, 4. I'.V) 
3S0 CALL CMARII4O.-E0C080' 

■ -■: ■ ■ ■ . . 

570 CALL MCW*Mo,4, 14: > 

380 CALL HCMAR (17,*, 1421 

990 CISRtAV BEEF- AT<l,2>SIZE<9>s"ttABBC0a 

600 DlSPVfV' ATfl.ZO>:-EF9H :* 

> CALL CHARi; , I06.RPT* 




FFFFFFI fl 



F2400BO 
6. 'I FFfFJ FFFFFF 7F. 



FFFFFFFFFEFCFBF"-. 142. "EOCO90", 



.16), 109. -FFFCFBFOE0E0CO90-: 



. 10B, "BOCOeOEOFOFBFCFF" 



. -FF7-FIFOF0707O301-. t07,RPT»C 

620 CALL CHAR' 

630 CALL CMABU12.-IF3F.-FFFFF7F3F1F-. 1 13. -0FOF1F3F7FFFF97O- , 1 14.RPT4 CF-, 16) , 115 

,BFT«(-F-. I4>t-FE", U6."F8FCFEFFFFFEFCFB-.117. "FOFOFSFCFEFFIFOE") 

640 CALL CHAfill 18.". 119.") 

650 CALL CHAft{8e.-OOlFlO121?lO1012") 

6AO CALL CHARIS , " I 210:''l I 1 21OI012", 90, ' 12I0IO12I2IOIOFF-J 

67" CALL CHARI9l,-OOF0iei4l2929212-. 92. -1292921212929212", 93,"12929212I29292FF-) 

6O0 CALL MCMAR(21. 3.88); : CALL VCHAR<22,3,89.2J:: CALL HCHAR (24, Z, 90) 

69*i CALL HCHAR(21.4.91>:: CALL VCMAR(22,4,92,2) :: CALL HCHAR (24. 4. 93) 

1-22 TO 24 :: CALL HCHAR ( I .5. 88*W1 : : CALL HCHARI I ,6.91 *M) : : W=M*1 :: HEX 



730 ! 



TrR. I 



ET MISE EN I 



yT DES VAISSEAUX 
I-INT(RH0»9)*1 



760 CALL HCHARI 13.3, 128.41: 

770 J-INI!FMC*9>,1 

7TJO CM RN GOTO 790.800.B10 

790 lOiB-l-j :; DF-«=-»- :: SOTO B30 

• J s : »-«=-•- : : GOTO 03O 
BIO IF J I THEN J-I :: I-J 
B20 HOMB-I-J :: OP4---- 
830 CALL COLORI3.2.161 

>-imiPMD*3>*l :: IF RAN* I THEN P-96 



T\ 



99/4^ 



L1G=90 :: COL-230 :: GOSUB 1020 
LIS-140 :: COL-230 :: GOSUB 1020 
:: 14-6 :: CAR-76 :: LIG-90 :: GOSUB 1070 : ; I 

GOSUFj 1070 
: M-3 ;: CAR- 36 :: LIG-40 :: GOSUB 107O :: f- 
GOSUB 1O70 

: M-3 :: CAR-36 i: LIG-40 :: GOSUB 1070 :: P» 
OSUB IO70 
CALL HCHAR(I3,4,ASCIOP»ll:: CALL HCHARI 13.3. J*48) : : 

CALL SOUND<70,932.2>:: CALL COLORfil . 16. 42. 14, »3. I 



1 020 

SSrt IF RAN-2 THEN P-104 ;; N=6 : 
B60 IF RAM- Z THEN P-1I2 :: N-9 ; 
B/O IF RAN-1 THEN OIR-69 :; P-IO 
112 :: CAR-or., ;: H -9 ;: LIS«I40 
BOO IF RAN=2 THEN DIR=68 :: P=96 
12 :; CAR-BO :: N-9 j; LIG=I40 : 
B9-J (F RAN- Z THEN DIR=3B :: P-96 
04 ;: CAR=76 B! N=6 ;: LIG-90 :: 
?'■*■ r.Ai.i HCWWM Z. Z, I*4B>:: 
CALL HCHAR- 13,6.44) 
910 CALL SOUNi>(-30, 1047.2): 

.•-'.:.»'..-•. •&.*.»?. 7. »a. i i.i9. in 

920 CALL «ni0N<»l.O.D, 42,0,0. 43, O.D.B4.0 
930 CALL POSITION(43, X.V. 43. X.V.49. !(,¥>: : 
LL SOUND'OO. 4OO.01:: FSC»F5C*1 :: GOSUB 1790 
940 CALL KEY(0,K,S7lJ IF NOT S THEN 930 
9^>i IF K-DIR AND K=69 THEN 1150 
--. tf MUD AND r=6B THEN I260 
9/0 IF k-OIF- «ND C=Sa THEN 1 360 
98'> IF K=69 THEN I4BO 
' ■" ■- • ^>& THEM 1570 
IO00 IF r>ee THEN 1660 
lOIO GOTO 930 
IO2U-N0nB*=STR*(NOHBf: : ON LEN<NOMB*)GOTO [030,1050 

'1. CHARF-Ar<NOWB.4B,A«> : : CALL CMAR(60.A» 61 
!04Jf CALL SPRITE<4N,R. I . L IG. COL . 4N-2, 6f. 1 .L I G*4 . COL -8. 



LIG=40 : 



COL-230 ! 



62," 



ETUBN 

^3EG»*NOf1B«. I.I I :: ,n i--.fi;i - rtRrr-t. :;■. i , 
HANPni !M,«8.i,i,ni •-B.tis,:: CAU, r.HAFM60,A*.61 
!•)&'- CA( I. SPRITE -«M.P, I .LIG.C'il .•!!-. .',■-. I.I Ifi 

ETURM 

1070 G-IMT(RNO'SI>*l 

. 

IOBO CALL CHARPAT'G*4B,A» 

1090 CALL aFRXTE<m.P,l,l 

RETURN 

I1O0 H»-SEG*IG»^ 1. 1 i : : H14-SEG*(G« 

'H.*Cj.A4.HI*4B,B»l:r CALL CHAR(r_AP, 

1 CALL 8pKTTEC*N,F>.I,Lie,CaL,«M-2,CAR,l.l 



l.LIG.COL*I5l:: R 

: H1-VAL«H1»i:j CALL C 

,P*4, ULIB,C0L*19)ei R 

F G-NOMB THEN 1070 ti G««STR«IG):: ON LEM(G4)GOTO IOBO, 

CALL CHAR(CAR.A».CAR.|."-.CAP*2, -~,CAR*3. "") 



H-VAL (H41 i 
-.62.B4.63, 

:.C0L*4.4H-: 



RETURN 

I120 • 

1130 ' LE NOHft. F.SF TPIKIVF 

1140 ' 

1150 CALL SOUNO '*'.*■. 

I160CALL MCHAR'll.Fi. ■;:>..; r.j L HCHAR 

1170 CALL HOriON(»l ,':. ... ■ ,0.1 ■ ■ ■■ 

HBO FOR H-l TO 4 

I190 CALL COLOR ( »:.!«,-.. II, : : 



):: H«7AL(H», :: HI-VALIH19) 1 J CALL CHARRAI 
CAR»I.--,r.AR*2,B»,CAR*3.""l 

• S.Ca *4.«t(-l ,p.4. l.LIG.COI.'ir,/: : 



40O1O004OI 

: f.cj I HCHAR(9, [O, 

rO,0.lh>,Q,0,t7.0,0,«8 f 0,0 



1200 CALL RAUSE(50> 

1210 CAUL COLOR'* [,8,4 ,8 

1220 CALL PAUSE '^.i 






. ■■•■ 



iz' 



m ■ 



i CALL Ufl BPRl " 
1230 GOSUB I Bio si ' 9C*1 it n 1770 

1260 CALL SOUND' 1 

1270 CALL HCMAR' t . • It 1 1 CALL HCHAR ( 13,10, 

128" CALL noriGN'f- . . ■■. ■ .■.■■.■ l.O.0,M,O.0.«3.O.O.»6,0.0,«7,0,0, •'!.".". •9,0,01 
1290 FOR H-l TO 4 

IVXj CALL COLOR* 45. :.•«.. :>:: CAU 80UNDC60, 639,2. -4,41 
■ : 

C0LOR«J3,9.<J6.9)3i CAU SOUM>(BO,6Q9,2,-3,4) 
1330 CALL PAUBEtSOl 

1340 NE/T H :: CAU OELBPRI IF 'Al I. ) 
1350 GOSiJH 1830 - : '.t.-'.r.-l :: (Xj II) 1 //'. 
1360 CALL B0UHD(4O0,-fl,OllI CAl L CHAR 

1370 CALL. HCHARI 15. B. 3D ; : CALl HCHARI 16, 9,331 I I CALL HCHAR ( I 7 , I '•, "1 
I3BO CALL nOTION(»l,u.0.47.".".» t,0,0,*4 ( O, O,«S,O,O,«6,0,0,07,O,0,*8,0,0,*9,0,0) 
1390 FOR H-l 10 4 -.% CALL COLOR (•S. 12.49. 12) :: CALL SOUND ( BO , 659 , 2. I . 4 ) 
1400 CALL PAUSEI50J 
1410 CALL COLORira.16.B9.16l: : CALL SOUND ( BO , 659 , 2. -2. 4) 



■ 

■ 
M«" BOBUB I "4" ii M ■,' ■ l : : CALl M I : .1 i J I IE it* I i ; : OOTfl 177 
14 

1460 ' i <■'■' "i 
1470 ' 

■ ,.i ,. j.- , 
1490 CAU SOUNU1340, .'. Hit CAU HCHAR ll.8.33ttl CALL HCHMR«IO,9 ( 337 J I •-« ' i«H 
..(■ 19, 1". ' "■> 

ii C0L0R(ll,21ti CALl DCL8PRITE<42,*3> 1 1 CALL HOI !(■((• i . ■ . 
1310 for |-0 FC JO Mil ■ :: CALL 80UMDI-I2O, 140, I. -6.1)!! CALL PATTERN - 
: CAl I COLOR (41 . 141: : NEI1 I 
1520 CALL HUH UN ( 44. o.E. •'.,". I .■'.". ' .•'.", F .•''. O.F. 48.0, El 

CALl I 0S1 I i ' in ■ ■/,. -. '.*■'. • I . 1 1 .■ : : IF V< 100 OR VI- 100 THEN CALL HOT ION (44 .O.O 
,06,0,0,»5,0,0,«7,0,0,»9,0,0,«B,0,0)tl GOIO 15SO 
1340 GOTO 157.1' 

155-1 FSC-FSCO :: CALL PAUSEI20O1:: CALL BOUnTJ (30,300,2) 1 1 CAl I. DELSPRI IE (ALL 1 
1560 GOSUB IBIO :: GOTO 1790 
1570 CALL CHAR(33,"00OO0053-| 
I5SO CALL SOUN0(340.~2.0lii CAU. HCMAR ( 13.8. 331 ! : CALL HCHARI 13,9,33) 11 CAl L MCM 

1590 CALL 0ELSPRIfE(»5.461:; CALL MOTION(44,0.0) 

16-X. FOR l-O TO 30 STEP 3 :: CALL SOUNDI-120. 140, 1,-6, III! CALL PATTERNI44, I 20>: 

: CALL COLOR(44,4):: NEXT I 

16IO CALL nOriONUi,0,E,»-',".E.IIL-.-,E,«7,0,F.,»9.",E,40.".tl 

1620 CALL POSITI0N(42.1H.ri,47,X.VI: : IF i" lOO OR VKIOO THEN CALL MOT ION 141 .O.O 

.43,0,0, 42, 0.0,47,0,0.49,0.0.48.0. 01:: GOTO 1640 

1630 GOTO I /.:■'. 

1640 FSC-FSC»1 ;: CALL PAUSEIZOO):: CALL SOUND (50.500. 01 : : CALL DELSRRI TE (ALL 1 

I650 GOSUB IB20 :: GOTO 1790 

1660 CALL CHAR(33."80O020O00B0O02-> 

1670 CALL SOUN0l34O.-2.O)il CALL HCMAR ( 15.8. 331 : I CALL HCHARI 16.9. 331 i : CALL HCH 

ARII7, 10,331 

1680 CALL COLOR(47.2):: CAI.L DELSRRI TE (48. 49) : : CALL HOT ION 1 47, 0, Ot 

1690 FDR 1-0 TO 30 STEP 3 :: CALL SOUND C-120, 140, I , -6, 1 > : : CVLL PATTERNI47. 1201 > 

: CALL COL0RI47. 12):: NEXT I 

1700 CALL H0TIONI4I,0,E,43,0.E.»2,0.E,44.O,E.46,0,E,45.O.E) 

1710 CALL P0SITI0N(43.X.V.»6.XI,yi):: IF Y< lOO OR VKIOO THEN CALL H0TIONI4 I , O.O 

,43,0,0,42.0,0,44,0.0,46,0.0,45.0,0):: GOTO 1 730 

1720 GOTO I7IO 

1730 FSC-FSC*! :: CALL PAUSE(IOO):: CALL SOUND (50.500.01 : : CALL DELSRRI TE (AIL I 

1740 GOSUB 1840 :: GOTO 1790 

1750 ■ SCORE 

1760 ■ 

1770 CALL S0UNDI400, 40000,30):: CALL SOUN0I7O, 7B4.01 : : CALL SOUND (70. 98B.O) : : CA 

LL S0UND(120,U75,0):: DISPLAV AT ( 1 . 1 1 >SI2E<3> :STR*(SC) 

1790 GOTO 760 

1790 CALL SOUNDIBO, 130. It:: CALL SOUND (BO, 121 , 2) : : CALL SOUND I SO, 1 1 3, 31 : : DISPLA 

V AT(1.26):STR*(FSC1 

1BOO CALL PAUSEUSOI:: IMM-IHIK2 :: GOTO 1B70 

IBIO CALL HCHAR (I 1.B.32) :: CALL HCMAR ( 10.9, 321 : : CALL MCHAR(9. lO, 32) : : RETLRN 

1820 CALL HCMAR(13,B.32):: LViLL HCHARI 13.9,32) : : CALL HCHARI t 3. IO. 32> 

1B30 RETURN 

1840 CALL HCHARI15.8.32):: CALL HCHARI16.9, 32) : : CALL HCHARI 17, IO, 321 : : RETURN 

IB50 ■ 

1860 • ECROULEMT IHMEUB. 

1870 CALL S0UND(400, 130.5,-5,5) 

1B80 CALL VCHARI20. l*lr»l, 32.21:: CALL S0UND(350, -6, IS) : I CALL VCMARI20. 1 »IMM, 32. 

1B90 CALL VCHAft(20.IIiM»2.32,2):: CALL SOUND C300, 1 IO, 24, 1 1 1 .24, -5, 221 : : CALL VCHA 

R'20, 1HM*2,32,5) :: CALL S0UNDI300.-6.26I 

1900 IF IHM-6 THEN 1920 

1910 CALL PAUSE(200):: GOTO 760 

1920 CALL CHARSET :: CALL CLEAR :: CALL SCREENI12):: DISPLAV AT 121 . 1 1 BEEP: "VOULE 

7->70US REJOUER T (D/N)" 

1930 DISPLAY AT (6. 1 1 1 : "SCORE :" :: DISPLAV AT ( 12. 3) :SC; -BONNE IS) REPONSE (S) " 

1940 CALL KEV(0,K,S)t: IF NOT S THEN 1940 ELSE IF K-79 THEN 220 ELSE CALL CLEAR 

:: END 

1950 SUB PAUSE IT):: FOR 1-1 TO T : : NEXT I 

I960 SUBEND 

1970 SUB HUSIO 

I9BO DATA 440. 1.440,4,330,4.440,6,494.2,523,3,494,1.523,3,440, 1.659,6.523.2,387. 

4,659,4,698,2 

1990 DATA 659,2,587.2,523.2,494,4,639.4,587,2.523.2,494.2,523,2,440,4.330,4,440, 

6.494.2,523,3 

2000 DATA 494.1,573,3,440,1.659,6,523.2.387.4,659,4,698.2.659.2.587,2.523.2,323, 

4.494,4.440,6 

2010 FOR I-I TO 42 :: READ F,T 

2020 Fl-E»3 :: F2-F/2 

2030 T-T«120 :: CALL SOUND I T.F, 2.F I .8.F2.4) : : NEXT I — 

2040 i 



Un programme a but pedagogique, qu'est-ce que e'est? Les avis sembient 
partages comme ie prouve cette lettre concemant un programme public 
dans Ie numero 32 et tir6 du recueil de C.PICARD.Des gouts et des cou- 
leurs... 

N.D.LR. 



A propos d'additions de nom- 
bres decimaux... 
Un bref coup d'oeil sur !e pro- 
gramme propose suftrt a retrou- 
ver ce qu'on voil trcp souvent 
Pour ceux qui n'ont pas lape ou 
regarde ce programme, une pe- 
tite explication : 

- L'enfant est invite a eflectuer 
une serie de vingt additions de 
nombres decimaux. pour arriver 
au bout, une seule issue : Trou- 
ver Ie Don resultat a chaque 
fois. 

Cette utilisation tres elementaire 
de la micro-informatique est re- 
velatrice de deux tacteurs qui 
sonl trop souvent des moteurs 
dans les milieux dits pedagogi- 
ques : 

1) On apprend en repetant : 
C'est I'idee suivant laquoiie il 
suffit d'etre contronte Ie plus 
possible a une difticulle pour la 
surmonter. 

C'est ignorer que chaquo intelli- 
gence puisse developper des 
strategies differentes et done ait 
besoin de situations difterentes 
pour parvenir au meme objectiJ. 



Le contrat, montre qu'au- 
jourd'hui dans bien des cas. t'or- 
dinaleur est utilise comme un 
repetiteur, un controleur. 
2) Un travail doit etre evalue de 
tacon normalive. Si Ton se dit : 
"Un nouvel outil. oui... mais, les 
resultats sont-ils meilleurs? " et 
que Ton cede quand meme au 
desir de se servir du micro-ofdi- 
nateur. on va chercher A faire 
les comptes. on (era dire au 
micro-ordinateur :" c'est juste, 
c'est faux", on affichera un score 
a la place dune note. 
Rien n'aura change dans le fond 
L'ennui n'est pas devaluer. mais 
plut6t de ne pas savoir quoi 
evaluer. 

devaluation est une enlreprise 
delicate, se prendre au jeu, 
conduit a etabiir des normes. 
des limites el une evaluation in- 
complete amene souvent des m- 
lerpretations erronees. 
L'enfant, a moins qu'il ne soit 
scolairement bon el6ve. ne peut 
eprouver aucune satisladion de- 
vant ces exercices. S'M bute sur 
une difficulte. arrive dans une 



impasse, il se sent a nouveau 
juge. Aura-t-il le desir de revenir 
bientot face au micro-ordina- 
teur? 

Nous devons veiller a ne pas in- 
formatiser nos vieilles melhodes. 
rinformatisation dune entreprise 
transforme le fonclionnernent de 
celle-ci. II doit etre de meme 
pour I'ecole! 

L'introduction de la micro-tntor- 
matique dans I'ecole amene a la 
formation collective. Elle est I'in- 
verse de ce qui se pratique au- 
jourd'hui. Elle est une reflexion 
de Cnsemble des utilisaleurs. 
Elle est aussi une chance pour 
ceux qui ont echoue ou rejete le 
schema scolaire traditionnel. la 
chance de connaitre la reussite 
dans un domaine nouveau. 
pourvu que celui-ci soit preserve 
de Iheritage passe. 
Un micro-ordinateur dans une 
ecole. c'est sans doute extraor- 
dinaire, dans le meme numero 
Paul CORNEC nous la demon- 
tre avec son article LOGO. ■ 



a la semaine prochaine 



• •• 
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LA GRANDE 



Vous voila prisonnier...Arriverez - vous a dejouer la vi- 
gilance de votre gardien et a fuir"? Vous lapprendrez 
des que vous aurez entre le programme dans votre 
Texas. 



IV 



EVASION 

99/ A ^ 



*S5** 











i JM 


GOS'jE- 1340 




2020 


CALL HCHAR'B, S, 32P 











Guillaume BESSE 




1330 


GOTO 1390 

CALL HCMARf 1.5. 32,3 


■ 


CALL HCHAR(8.r, 137.. 
CALL HCHAR'B. 2,321 


2690 

ET>- 


■■ 










1330 


CALL HCHARi 1*1,3,32,3) 


2O30 


CALL 5OUND(50,-7.20) 


270© 


INPUT "•*,*-- : - ■• 










1360 


CALL HCMAR( 1-2,5,32,3) 


2060 


GOTO 1740 


2710 


GOTO 27*0 


Mode d emptoi : 






1370 


CALL HCHARM-1,4, 134) 


2070 


REM DEPLACEHENTS 


2720 


IF CM-ijj THE^ ~ 7Z r, e\5£ T75 


UM'sez la manette l ou les touches D.R.C e! F pour vous deplacer. 




1 790 


RETURN 


2080 


CALL *E" l.RV.EV) 







Si vous 


uliltsez les maneltes. n'oubliez pas de relever la touche 




1390 


CALL HCHAR(!6,3, 143.-) 


2090 


IF EV-0 THEM 


2730 


PRINT i,-LE COPE 1 


Alpha - L 
En cours 


xk, 






1400 


CALL HCHAR122, 6, 145,21 


2100 


IF RV-6 THEN 2210 


RAND 




d'execution, le programme pose des questions, repondez 




1410 
1420 


CALL HCHAR(9.7. 
CALL HCHAR(7. 19 


43) 
32.3) 


2110 
2120 


IF RV-14 THEN 2290 

IF RV-IZ THEN 2370 


2740 
27SO 


INPUT *«ot. 
GOTO 2760 


en majuscuies. 






1430 


CALL HCHARfB. 19 




2130 


IF RV-3 THEN 2430 


27* 


NEXT I 


Dans certaines instructions PRINT (igurent des cactus.Pour ce faire 




1440 


CALL HCMARI9. 19 


32,6) 


2140 


CALL JOVSTU.XB.VB) 


2770 


■ ■ 


entrez CTRL4. 






14SO 


CALL HCHAR(7, 19 


137,3) 


2130 


IF YB-4 THEN 2210 






Enfin, si vous suppnmez la ligne 1800. le 
ten tern en f 


jardien ira deux 'ois plus 




1460 

1470 


CALL HCHARI9. 19 
FOR 1-16 TO 23 


137.5) 


2160 

2170 


IF VB*-4 THEN 2290 
IF VB-O THEN 21BO 


2780 
2790 


GOTO 2940 
CALL CLEAR 










I4BO 


CALL HCHAftfl, 13, 32,10) 


21 BO 


IF XB-4 THEN 2370 


2S0O 


CALL SOUND (5©. - 










1490 


NEXT I 


2190 


IF XB--4 THEN 2450 


2810 


CALL SOUND'S©. -3. 


Suit6 0*6 ' a " =>/, ° * f i***^/94 






1SOO 


CALL HCHARU6, 13, 137) 


22O0 


GOTO 1770 


282© 


CALL SOUNDUOO.-1.3' 










1310 


CALL HCHAR(23, 13. 137) 


2210 


CALL GCHAR(X-1.V,CG> 


2830 


FOR I-l TO 16 




^^W^ 






1320 


A»-"COUR" 

CALL HCMAR18. 1,129) 


2220 
2230 


IF CG-131 THEN 1770 
IF CG-137 THEN 2940 


2840 
2830 


CALL COLO 1 : 1,2, 1 




ATTENTION! 




NE<T I 






1340 


CALL HCMAR(17, 1,129) 


2240 


CALL HCHAR(X.Y,32) 


286 ■ 






Certames lignes de plus de 80 
caracteres sont coupees en 
deux morceaux. Attention done. 


I3SO 
1360 

1570 


CALL HCHAR(21, 1,129) 
CV*I8 

FDR 1-1 TO LEN(A») 


Z230 
2260 

2270 










lz§: V* 


CALL HCHAR!X,V,143) 
IF X-6 THEN 2940 














Jruih 


vous ne devez pas taper 


les 


1390 


CV-CV*1 

CALL HCHAR(20,CV,ASC(SEe«(A 


2280 
2290 


GOTO 1770 

CALL GCHAR(X*1.V,CS) 


PREO 


BPRES TOUTES CES E 
-:: -VES.ENFIN LIPRE ti' 




<rr 


blancs introduits par accident 


«. I. 




2300 


IF CG-131 THEN 1770 


PER SONNE N'A REM 


m 


W 


dans le listing... 




I60O 


NEXT I 


2310 


IF CG-137 THEN 294© 


ABODE VOIRE": : "ABSENCE, MAIS': 1 


> 1 , 




Merci de votre comprehension. 


1610 


CALL HCHARI10.7, 133) 


2320 


CALL HCMAR(X.Y.32) 


288© 


PRINT "OEPECHEr VOUS OUAKD 


^MA 


' / 






1620 
1630 


FOR 1-1 TO 13 

CALL HCHAR(9,7,32) 


2330 

2340 


X-X*l 

CALL HCHAR(X.V, 145) 


HEME 
"I : " 


ll-DE METTRE LE PL! 


^■r 






NTRE VOUS E 


^r 








1640 


FOR AS-1 TO 30 


23SO 


IF X-I4 THEN 2940 


T LA 


PRISON .. . -; 










1630 


NEXT AS 


2360 


GOTO 1770 


289© 


INPUT "miff - t Xt% 


■ 




970 CALL CHARt 133.-81C0CI830 


SB IB 




CALL HCHAR(9,7, 145) 


2370 


CALL GCHAR(X,Y*1,CB) 


2900 


CALL CLEAR 


' 




3C1-) 






CALL S0UND!5O,SON3, lO) 


2380 


IF CG-131 THEN 1770 


2910 


PRINT -VOICI LE TEMPS OLE V 


■ ■ 


»■■'"■"■■ 


9BO REM PORTE DANS MURAILLE 




16B0 


NEXT I 


2390 


IF CG-137 THEN 2°40_ 


ous- 


t-AVEZ MIS POUR ARRIVER A L 


?ro sow>*oooo 


990 CALL CHARC129, "FCFDFDFDFDFDF 


1690 


CALL SDUND(10O0,50N2,B) 


2400 


CALL HCHAR(X,V,32) 




PORTE : ~iT 


•30 SON! 


4O0OO 


DFC") 




1700 


REM ....JEU»«« 


2410 


Y-y*i 


IMEi 




1 


■ 


10O0 FOR I-I TO 24 




1710 


X=9 


2420 


CALL HCHARIX, V. 143) 


292© 


INPUT "tf.l»f -]XX« 


MAIS NE VOUS FAITE5 P 


1010 CALL HCHARCI, l,131> 




1720 


V-7 


2430 


IF (X-12)*(Y-28)-~ 2 THEN 23 


2930 


END 


. : : 


LLUSIONS.LE SON DE "»«" 


1020 CALL KCHARlI, 4, 131,21) 




1730 


T I nE-o 


30 




294© 


REM PERDU 


[ .ALARME 


M'EST P 


1030 CALL HCHAR(I,2B, 131,3) 




5 740 


FOR XA-16 TO B STEP -1 


2440 


GOTD 1770 


2950 


FOR ASE-1 TO 6 




1040 NEXT t* 




1750 


CALL HCHARIXA.26, !3?> - 


2450 


CALL GCHAR(X,V-1,CGI 


2960 


FOR I-62S TO IOOO STEP 10 






1030 CALL HCMARtl, ! , 131 , 30) 




1760 


GOTO 207O 


2460 


IF CG-131 THEN 1770 


2970 


CALL SOUNOWOO, I. 1) 


7*0 INPU 


"pnter -jXX» 


1060 CALL HCHAR(24, 1,131, 301 




1770 




2470 


IF CG-137 THEN 2940 


2980 


NEXT I 


' 


SCRF.EN! J 1 i 


1070 CALL HCHAR(12,4,32,27) 




THEN 2940 


24B0 


CALL HCHAR(X.V,32) 


299© 


NEXT ASE 


780 CALL 


COLOR (13,2, 1) 


lOBO FOR 1-7 TO 19 STEP 4 




1780 


CALL HCHAR(XA,26.32) 


2490 


v-v-i 


3000 


CALL CLEAR 




COLOR!14.5, 1 1 


1O90 CALL HCHARdI, 1,32,2) 




1790 


CALL S0UND!3O,5ONI, 13) 




CALL HCHAR(X,Y, 143) 


3010 


FOR UI*l TO 16 


aoo CALL 


CDL0f>(I3.9, I) 


1100 CALL HCHARU3, 1,32.2) 




1800 


XA-XA-1 


2510 


IF Y-3 THEN 2940 


302© 


CALL COLORIUI.2. 1) 


810 CALL 


COLOR(16.3. 1) 


11 10 NEXT I 




1810 


T1ME-T1ME*1 


2320 


GOTO 1770 


3030 


NEXT Ut 


330 DMJ 

94 O REM 
SSO CALL 
86C-) 


CLEAR 
GARDE 
CHAR (137. "3B3B107CS4103 


1120 CALL VCHAft<ll,23,32.3> 

1130 A*-"PLANDELAPRISON" 

1140 CV-3 

1130 FOR 1-1 TO LEN(A«) 

1 160 CV-CV*] 




1B20 
1830 

1830 
I860 


FDR H-l TO 2 

NEXT H 

TF TIME-200 THEN 1890 

IF TIME-230 THEN 1930 

IF TIME-500 THEN I960 


2530 
2340 
2550 
2360 
2370 


FOR 1-1 TO 16 
CALL COLOR (I. 2, 1) 

NEXT I 

CALL CLEAR 

PRINT "POUR SORTIR.IL VOUS 


3040 


^l™ '. " ^Indf'f"^™ 










305© 


PRINT - PERDU "'ii-CE SE 


B60 REM 


PRISO. 


1170 CALL HCHAR(4,CV,ASC(SEG«(A» 


1870 


,'1E'T XG 


FAUT 


:!-TROUVER LE CODE" i i -TRES 




UT-ETRE POUR LA- : i "PROCHAIN 


B70 CALL 


CHAR ! 1 43, " 1 Bl 03A3430 1 C2 


,1,1))) 




1880 


GOTO 1740 


SIMPLE ..."lit 


E FO 


S ■ "til 


44-) 




HBO NEXT I 




1890 


CALL HCMAR(12,4,131) 


2380 


PRINT -IL EST COMPRIS ENTRE 


3060 


PRINT "3 SEHAINES D'lSOLEME 


aeo REM 


CARRE 


1190 CALL HCHAR(3,31, 133) 




1900 


CALL S0UND(230,-6, 10) 


E 


"ll"20 ET VOUS AVEZ DROIT A 


NT POUR-1 fTENTATIVE D'EVASION ! 


BTO CALL 


CHAR (131. "FFFFFFFFFFFFF 


J200 CALL HCHAR(B,32. 133) 




1910 


CALL HCHAR(12,24, 131) 




-ESSA1S. . .- 




ARPUYEI SUR 


FFF") 




1210 CALL HCHAR(17,31. 133) 




1920 


fjOTO 1740 






UNE 


TOUCHE ": i 


700 REM 


CACTUS 


1220 CALL HCHAR120.3I, 133) 




1930 


CALL HCHAR(12,4.32) 


2390 


INPUT -rntrr "|XX» 


3070 


CALL KEY(0,M,CI 


910 COLL 


CHARf J53."0OI2327E1010I 


1230 CALL HCHAPI24.32, 133) 




1940 


CALL HCKAR(12,24,32) 


2600 


CALL CLEAR 


308© 


IF C-0 THEN 3070 


07E"> 




1240 CALL HCHAR(12,29, 133) 




1930 


GOTO 1740 


2610 


~.'.-.'D-M! ?F 


3090 


CALL CLEAR 


*?20 REM 


PORTE 


1230 CALL HCKAR<2, 2, 137,21 




1960 


CALL SDUND(300,700,9) 


2620 


OW-INTIRND»20)*1 


3100 


PRINT "TEMPS 1 "HlMElIl 


9^0 CALL 


CHAP < 1 33. "55FFDBFFFFDBF 


1260 CALL HCHAR(23,2, 137,2) 






CALL HCHAR(8.2,137) 


2630 


FDR I-l TO 4 


3110 


PRINT "VOULEI-VOUS FAIRE UN 


F33-) 




1270 1-7 




1980 


CALL HCM0R(B,2,32) 


2640 


CALL CLEAR 


E AUTRE": :"TENTATIV£ ':i 


9*'' REM 


PETITE PORTE 


12B0 GDSUB 1340 




1990 


CALL HCHARfS. :. 137) 


2*30 


PRINT -No "1 In 


3120 


INPUT SE» 


950 CALL 


CHAP I 134, "IBlBieiBIBIBl 


1290 I- 16 




2000 


IF (X<-9).(V'.-7)--2 THEN 20 


2660 


INPUT YU 


3130 


IF <5EG«(SE«. 1, 1)-"0')*(SEG 


018"] 




13O0 GOSUB 1340 




20 




2670 


IF YU-QW THEN 2790 


*(SE< 


. 1. l)--o")--l THEN 630 


960 REM 


TUNNEL 


1310 1-20 




2010 


GOTO 2940 


2680 


IF OW-'VLJ THEN 2690 ELSE 272 


^140 


END ■ 



REFLEXES 



Void un petit programme pour HP41 C qui vous fera 

connaitre 2 choses: 

Si vous avez des reflexes 

Si vous avez une bonne memoire visueile. 

En effet, il s'agit de retaper sur le clavier un nombre et 

cela pendant qu'il est affiche. Si cela parait facile jus- 

qu'au niveau 4, cela Test moins apres. Le score a bat- 

tre est de 4 au niveau 7. 



HP 41 



Patrice COQUERY 



Mode d'emploi: 

Le niveau determine le nombre maximal de chittres a I'attichage. 

Avant chaque serie, le message "Pret" vous permet de vous 

concentrer. 

Lancez la serie en appuyant sur RIS. 

Score de 9 ou 10 sur 10 passage au niveau superteur. 

Score de 5 a 8: Le niveau ne bouge pas. 

Score inteneur a 5: regression au niveau tnterleur. 

Vous n'etes pas autonse a ettacer votre reponse, ni a arreter le 

programme pendant i'attichage. 

(Assignor les sous programmes T et TR aux touches f-et R/S. 




18:37 15.64 
8HLBL -RFLX- 

82 FIX 8 

83 -8«<1- 

84 PROMPT 

85 STO 88 

86 18 

8? -NIVEfiU »■ 

88 PROMPT 

89 VtX 

18 STO 82 
ll'LBL 85 

12 18 

13 STO 83 

14 STO 84 

15 CF 29 

16 "PPET V 

17 TONE 3 

18 PROMPT 
19«LBL 81 
28 RCl 86 

21 9821 

22 » 

23 ,211327 



24 ♦ 

25 FRC 

26 STO 88 

27 RCL 82 

28 « 

29 INT 

38 STO 88 

31 CLX 

32 SF 27 

33 VIEW 68 

34 PSE 

35 RCL 88 

36 XOY 

37 x=r> 

38 GTO 82 

39 X«6' 
48 GTO 86 

41 • ON REVE 

42 BVIEN 

43 CF 27 

44 TONE 3 

45 TONE 2 

46 TONE I 

47 *C ETBIT: 



48 flRCL 68 

49 ftVIEU 
58 PSE 

51 1 

52 ST- 83 
S3»LBL 82 

54 CF 27 

55 DSE 84 

56 GTO 81 

57 CLfi 

58 PRCL 83 

59 "P /18- 
66 RVIEM 

61 PSE 

62 -NIVEAU ' 

63 8 

64 RCL 83 

65 X>V 

66 CTO 84 

67 5 

68 X(=V 

69 GTO 87 
78 18 

71 ST/ 82 



72 TONE 1 

73 -HNFERIEuR- 

74 PVIEU 

75 TONE 8 

76 TONE 8 

77 PSE 

78 GTO 85 
794LBL 86 
86 TONE 7 

81 -F8UX: • 

82 ORCL Y 

83 fiVTEU 

84 TONE 7 

85 CF 27 

86 PSE 

87 1 

88 ST- 83 

89 GTO 62 
96»LBL 64 

91 TONE 7 

92 -PS0PER1EUR- 

93 OVIEU 

94 BEEP 

95 PSE 



96 18 

97 ST« 82 

98 GIO 85 
99«LBL -TR- 

166«LBL -T- 
161 • TRICNEOR- 
182 I1VII u 

163 TONE 2 

164 CF 27 

165 TONE 1 

166 TOHE I 

167 PSE 
188 CTO 65 
189«LBL 87 

116 -HDENTIOUE- 

111 RVIEU 

112 PSE 

113 CTO 85 

114 END 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT : D CHEQUE D CCP 



MATERIEL UTILISE : 

CONSOLE : 

PERIPHERIQUES : 

> 



ARAIGNEES 



Le but du jeu est de survivre le plus longtemps possi- 
ble face aux attaques repelees d'araignees geantes en 
marquant le plus possible de points. Pour cela vous 
pouvez vous deplacer a gauche, a droite et tirer. Mais 
plus le temps passe, plus elles vont vite. 
Le programme donne un classement des joueurs sui- 
vant les points obtenus. Le son est de la fete vous 
vous en apercevrez rapidement. Toutes les regies sont 
dans le programme. 

Christophe LE BOUIL 

Mode d'emptoi: 

Le programme utilise des caracteres programmables qui sont char- 
ges a partir de la l:gne 10080 jusqu'a la ligne 10160. Commencez 
done par rentref ce sous-programme, puis faites RUN. Vous avez 
nontenant acces a 12 nouveaux caracteres que vous pouvez obte- 
mr apres etre passe en mode caracteres speciaux (CTRL 8); vous 
les ootiendrez alors de la facon suivante: 
SHIFT CTRL 1 SHIFT CTRL 7 

SHIFT CTRL 2 SHIFT CTRL Q 

SHIFT CTRL 3 SHIFT CTRL W 

SHIFT CTRL 4 SHIFT CTRL E 

SHIFT CTRL 5 SHIFT CTRL R 

SHIFT CTRL 6 SHIFT CTRL T 

Pour afficher I'araign6e de la ligne 78 par exemple, vous devez 
done taper successivement, apres le PRINT: 
'CTRL B SHIFT CTRL 3" CTRL B RETURN 
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7*a 
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-40 
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'30 


■ 












r«a 


(eruRN 












1908 


err 












iflit 


F ■ 
- < E 




■ .: 


:'•:- 




'*" 


(MS 


TA1 7 HI 


- : ■ 


PRIHT 


s 




e ■• 
I04fl 


POEE -■:■: 


M 


■■ E 


«s 
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..-: - ., 












i«« 


XI -t Foe - 
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■ ■ 


PRIH1 


■ -: 1 












l«39 


I'TAJ 19 P 


■ 




- 


-: 


palm 


MTA E 




■ . 


'■ 




ttRAlGNEES ' 












1968 


PR [HI PRINT 


K 


HTAI 


1 1 




PR 


i-.- -i- HTAB 


- .-;:.- 


: 




1-3-0 


'P * INT 


: ■ 


ii- ■ 


PR! 


il 




PRINT « 












:■:■ J 


" . . : . 


" 




PF 


RIHT 


PRINT 'SCORE 


gifl 






' 




■ ■■ ■■ 


GET -I 












1190 


H.JWE 












1118 


i ■ ■: I . ■ 


:i class 




1120 


■■-: - . . 












1138 


■■-: " 












'.140 


print ■-:■■ 




- - 1 - 






1280 


EHD 












leaee 


AS = - 173 


941= 




ITS 


.1- 


g ■ ] ;..■ 


eoi 


193 ~ •■:■ 




299 


f«3 


7* 


■ 


B76 


}-3 ; 883 -Ir-J 


■■■■■■■ 


.100 








I991A 


FOR H ■-- 1 


rc 


-~ 








1332* 


POKE H - 


■69 


-- 


■ ::: 


-! 




i - 5,4>) 












10034 


■■•: * *■ 












:o-3*-: 


-s = - 932 


967 


?*fl 


it; 


53 


•: ■ •: 


',-3-3 5.? 


FOR H ■ 1 


ro 










10864 


POI E ■■ - 


199. 


IML 


^::j 


~s 




s - 3.4'' 












1897S 


riE^r n 












iseec 


C » 12 












19898 


FOR N - 1 


;J5* 


-: i-;??t 


* 


-: 



:8»Z9 

■ 

■ 
■ 

■ - - « 
19JS8 HO"€ 

- ■:•;»- £33 

19779 IMPijr ■ 
19773 

. 

- 

. - . 
19*90 PRINT PRINT 

;.,.-■ 
I 94 10 -L H - N 

:^';-) •: 

!«■»£» PSIH1 PRINT 

IWHCHE I 
19438 PRIHl 



EC 



TO 



■ ■ 





159 IF I 


= 136 THEN < - X - I 


13 : : ■ ■_■: 


239 TF : 


• 174 rHEM COSU1 399 


■ ■■ . -; ■ 


219 IF a 


2 THEM ! ■ 1 


M - : ; .:.-.-. . -::_;- - : 


228 IF X 


■ Z -—-■■ = " 


r 23 TO . 191 TO 


238 IF 


- 36 THEN HPLOT '-■ 3 ! 


•: »79 171 -: 173 93 TO 839.23 


TO 239 


23 


' . ii' 


399 GOTO 


193 


»a HP .;■- > : ; -.: 


!99 POKE 


P08 13 


M kplot S9.3 -: :"r - 


319 PCK-E 


res « 




329 CALL 


< 770 .' 


■■ ■ . ■ 


330 T = 8 




!■« -:•" ■■ ■ i -; is 


349 FOF 


■ 3 ro iz 




330 KTAE 


rsB h Fsr»T ■♦■ 


--_: I . -. PRIHT -■ 


^o :- - 


■ 9 THEN GOSUB T88' 


. 


HEX! - 




» X - 19 


3.'9 If h 


= £T THEH GOTO -:90 


re --i : wtab >3 ; - cm ■•! . 


3S9 T - I 




rai WTAI print ■ . . ; E 


399 NEXT 


H 


tflfl rftB 7 HTAi - | PRINT * 


600 HTAt 


--: 23 =^;rtr - - 


2 -'~i :-: PRpll K 


€19 IF K 


l [NT ■■:: THEM 


;^^ FOR » - t '■: I 


RETURN 




no & ■ INI RNS t 19 • '. 


•;io $■: - 8C - n - (Ml ■ 


128 - TAl A * 2 "-;■— PRINT 


*39 "I • 


: • Oi 


130 Tf<fi - ■ - - fl 


649 IF IMT £>) * J THEN 


:Z1 HTAB - ' 2 "-;- 


UTAB 4 


HTAB PRINT 


-.10 ^?lr*7 '»" 


GS0 .'■ 


2 - ;; 


1*3 [F Y<ftl • ; ? me ■ 


-;-;o htce 


X 


9,23 ro Z9-3 


670 '>T«£ 




■ E T€t 199 POKE F69. 3 :a.. ?79 


680 PS I-BT '« 




■599 RETURN 


163 -:■ - g 


709 HTA8 


X 


IT9 :au. 390 : = PEE* 233! 


■ ■■ e 


M - 1 



19199 *EAD a POKE ■■■- HE " 

19110 Dat,. 28,28,8.127.8,8,34.93 

19129 DfiTft 8. 8.28, 62,62. 28, 8.8 

19139 DATA 8.127,73, " ■ *: > 62.63,63 

19133 DOTS 9,127.8,8,8.8.8.8 

10133 DATA 0,126.2,2,2.98-34,34 

10137 DATA 8,127,0.0^0.127,0-8 

10140 data 0,63. 32. 32. 32. 35- 34, 34 

19143 DATA 34,34.34.34,34,34.34 ?i 

19145 DATA 34.9-:. I. 2. 2. 126.9.9 

19147 DATA 34. 35. 32.32. 32. 63. 8. 8 

:0150 DATA 34,98.2.2.2,90.34,34 

19135 DATA 34 35.32.32,32,33.34.34 

19169 POKE 2038.64 

10179 HOME 

I0I89 AS - -ATTENTION* H » 13 

19199 FOR H - H TO H + 8 

18299 UTAE 1 HTAE H PRIHT HID! ••- - 

- 14 '. 

■.-3210 FOR n * 150 TO 29 STEP - 13 

19229 PO^E 768. H POKE F69.10 
8) 

10230 HEX! "■ '■-: ' 

(0238 u^r 3 

192*9 PRINT "DES WFREUSES MAICH 

AMTE5 ,«"AYANT- 

10230 PPEHT -FA-3 NANCE BCPUI3 
. SONT" 

10260 print PRINT "UECIBEI 

UORCR DES 0U 'ELLES LE" 

19278 PP[NT PBflir 'PDURONT' 

10298 PRINT PSINT -UOUS AUEJ - 

nOHTER SUR U'l HUR . ' 

19290 PRINT Pe| fl T -HftIS ELLCS 
F LE POINT DE BANTER" 

19290 PRINT PRINT 'A l£ijp TOUR" 

18310 print point "pomp l€i en -:"'-:■> 
er.uous pouue;* 



•.Cn? IF I - 

49 

L0458 "-£ :. -"- :■ 

_ . _ . t 

19469 GET AS'fl ■ -i 

19470 ir - . - 
19480 HGBC 

....... 

. 

11028 UTAI 3 

0IT£- 

::-:3.: --! ; -■-■ ; ■- . ■ 

11040 --E - HTAi 

R" 

11938 WTAt ii PRINT 

our cohbe* :a 

11068 GET ai [F -i ■ -.;■ THEM 
GOTO I106J0 

'.1 079 HOME 

11069 RET : 
11222 HONE 

12080 PRINT -I . .. - _=^^_ 



12092 PRINT 



INVERSE PRINT ' 



12093 PRINT " NAHCNE ' Wll "a£ ; * 

UEUR ' .;■.'■ '-S 23 HKJQ 

12894 MTAB 40 PRINT -If: PRINT \t 



12305 

1280'. 


PRINT 
PRINT 


-il- 


TAE< «0>("ll" 






1- 
- 6 


-; ;i pRIHt 
NEXT M 


■II" 










1 289-; 

TAB 
1289? 


FOP H 
40 ) ■ 

PRINT 













12019 FOR N * 1 TO J««NJ • 

12920 FOR P • 1 TO J 

12025 PH ■ - 1 

12039 FOR JT - 1 TO J 

12033 IF C< it > : > 1 AND RO' JT > 

> - PH THEN FM • POi JT:- J>! ■ jr 

120*9 NEXT JT 

12938 pu'p> ■ ;<: ■:■ k t • i 

12969 NEXT P 

12970 OTAE « HT,iE ] PRINT "HOf 
TS" 

12980 FOR N « I TO J 

12090 PRINT «Th£ J PRINT '■ I I N 
(X PL. H>) 
121O0 NEXT N 
12110 UTAB 2* PRIH 
OUR LE JOUEUR SU : ■ 

12120 GET A* [F AI < > "S" THEH 
GOTO 12120 

12139 HONE 

12140 RETURN 



TUNNEL 



C'est un jeu! II utilise les possihilites d'affichage point 
par point. Vous dirigez un vaisseau spatial {represents 
par un point: chaussez vos lunettes! )dans un tunnel. 
Le vaisseau peut subir deux chocs sans dommage, au 
troisieme... Adieu! 

Jerdme de LAGAUSIE 

Mode d'emploi: inclus dans le programme. 

Dernier conseil: si vous d6sirez faire dtsparaitre la "trace* laissee 

par le vaisseau, ajoutez la ligne: 

425 POKE Y,W. 

Pour protlter des rares effets sonores. d^branchez vos interlaces 

cassette. 



2I9tf-EX7 I 
230:Y*636i; 
2*9:F0R !■] TO 9 
219J RESTORE 519*H 
269:k« R-.D * 
2?9!F0R Z*\ TO H 
239:eEflD <.J.G.F.E 
2901 MEXT 2 

JeeiPOXE Y-5I.A(E).a<F>. 

0<0)i«<J).A(K> 
319INEXT I 
3l3:V«6J*9e 
32e:0bTA 1.2.3.3.2,1.:,! 

.4.3. 1.2. 3.4, 4. 1,1,2 

.2.3 



3271PEM VVVVVVVVVWVVVVVV 

328 s REN DEBUT Ou JEU 



553: d p;nT ■ BRAVO '* 

57e:s»$*teev 
5SB!OOT0 *s* 
599:rP* 

693:CALL 4576 

619: FOR 0*0 TO 9 

628SNEXT o 

6391V-V-1 

6*9: IF V-0 THEK *f 

638:CflLL 4376 

669:"R* IF PEEK Y019J 

IF PEEK YOI13 LET Y 

"Y*Ji OOTO *R* 
679:w> PEEK Y,H-3.u»u«D 
6Be:F0R 2-1 TO J 
699!F0R 1*1 TO 3 
709:POK£ Y.U 

7191NEXT I 

729IP0KE Y.U 

7391HEXT 2 

7*9;O0TO 'A' 

747: 'F- RErt ♦.......».♦+ 

749:REn VAISSEAU KOPUTT 
749:REN «.*.♦.».*...„„ 
739: BEER 2 
?60.'JAIT 120 

779:PR!KT "ROUP LB TROtS 
IEHE FOIS' 




PC 



125A 



3iOEN 



PRESENTATION 

• WITJALl >*I1 



20:wAl* [29 

J0:PSif,7 ■ <•••• ruwN 

EL ••••> m 
4e:R-||NT • PILOTAGE DU 

rftUSEAUl' 
SeiPRlKl •> a POUR DESC 

EnDRE' 
69IRRIMT ■> 1 POUR NQNT 

ER ■ 
791 *J* 
39!CLEfiR 
98:RAc:0N 
189: Input -NIVEAU 7<8-i9 



1I31REN -RACE DU Pa*r.0uR 
S 

"— 



H9:P0KE Y.C.CB.fl.* 
I401CALL 43T6 
130iFOR t-i TO 9 
;68:RESTCiR£ Jl9*H 
179tH" BID 4 
189:F0« 2*1 TO H 
19e:REA2 E.F.G'J.K 
290) NEXT 2 
2191P0KE Y*3I, A(E>,i 
AtO),A(J).A(K) 





788:PR!nT "...aANS LE D£ 




cor r* 


CALL 28784! CALL 287 


790:PRINT "VOIRE VAISSEA 
U HE TIEN7 • ' 


NEXT : 


898:PRIHt "...PLUS LE CO 

UP !' 
987: -S- REN .....—=*.*. 

998:REN SCORE 


CALL *576 

A.I,B-2.C.*,D>8.E>16 

iF-32iG-$4,H»3.J-| 


M" PEEK Y,U.WA'A»l) 

FOR I»9 TO S 
POKE Y,U 
NEXT I 
Rt> INKEYI 

M'M«{?|.-9')-( VOL R 


910:PR]NT • VOICI VOIRE 

SCORE :• 
S28:UAIT 13 
839!A>85.B>*2 
64e:PRIHT •> •; 

STRI (S) 
839'COLL 4376 


T.6(H»i) AND PEEK <Y 


869:P0KE 6J58J. A.B.A.B.A 


IF T THEN -P" 


.B,A.B,A.g.A.B,A,B,A 

. B. A. 8. fi. B. A.B.A.B.A 


IF Y«6J347 LET V.6I6 


879:P0KE 6J362. A. B, A, B, A 


11. J-; 


.E.A.B. A, B, A.B.A.B.A 


IF YO6J370 Then -A* 


• B.A. B. A. B. A.B.A.B.A 




889IF0P 1>1 TO I3a 




RE" VICTOIPE' 


999tNEXT I 



):FOR ;•! TO 6 
MCALL 28784 
HCALL 28783 
J1HEXT I 
9IUAIT 128 

UPRIhT * • MISSION AC 
MEVEE'* 



999IPRINT • ■ unE AUTRE 

PART IE ?• 
919ICALL 4376 
92e:Ai> IHKEYI 
9J8UF ai." THEN 928 
948: IF fli-'O" THEN *J* 
930IENO I 



^ 



Suite de la page 6 



DfcW 



,G0^ 32 



M--n DRflU B SBi8H69- 1*.P4HR4f>?.BNJ>'J9. 
I nn . i 504R504L3 r BMI0. 85 J '"=P'=.r i -^.'5P2F3- 
317? !>RflH"C2(Bmi8.0iF2G2iC3iBm9; 
II?:F.?r;?.C4.eM' ; .3. 108.F2G2" 
■i g COtC* '■ t 

■ ■;•■ I92),PSET,B 

1290 RETURN 

32ig PEN nt NESUM TEV3 t*» 

3228 rr-Ti.TtriFF 

vr< th*^^TP*' I PIT' TI/1794A0 ■ • 

:'■■!,-, TIT!-' tt(T' ir'-17^-l«0'.tir' : '4nn\ 

mt-STP* nit' n ■■. ■■•'■'■ ■ 
?26« TI^TI-' INT' - ir ■ 'i' ' «3 
3279 TS8-8TRiKIHKTI/6e>> 
'J2S9 TE*'TH*+-H"*TM*'"N"*TS«* _ S _ 
^2?? PETIJPH 

3?00 PEM tit POTHTIOU *r itr 
3310 Rl=l P2=I3 P?=I P4-7 

3329 GOTO 1360 

3330 PEM *t* POTATION -C ttt 
3340 Pl-1 P2»7 P3=l R4«13 
333B DOTO H30 

13^0 PEM ttt POTATION *M IM 
3370 M0=12'M1=€ 



FETOPN 
PEM J 



3420 
3430 

3H40 
?430 
34fi0 
3470 
3480 
3490 
3500 
3310 
3320 
3330 
3540 

" ',■■.!■, 

3370 

33(50 
3390 
36O0 
3<510 
3-520 
3630 
3640 
3650 
3660 
3670 
3600 
36?0 



..,-,.-. 



Ml" 



I POTATION -M t*f 



GOS'JB 3520 

RETURN 

PEN t*t POTATION *V *t» 

\^»4V1«16 
COSUB 3610 
RETURN 

PEN Itt POTATION -V Til 

VOald VI-4 

G0SU8 3610 

RETURN 

PFM Itr PflTRTIOM POOP M (tl 

FOR 1-0 TO 2 

M-C 1*9*1) 

CM. 9* I X< l.MOtt? 

C( l.M0*t>-C< i.I> 

CC1.I )-C' l.Ml*I> 

C<1.M1*I>-M 

NEXT I 

RETURN 

REM tr* ROTATION POOP V •»* 

FOR 1-0 TO 2 

M-C 1.10) 

r ■ i" HXI.V8) 

C( I,V0>-C'2-I: 1 ) 

C2-I.I >-C( I- VI ) 

C< I -VI >"M 

NEXT t 

RETURN 



18 



* 



Stiffs <f>« In page 2 



Wtf- 80 



>85 print .-:««.« » «.ot*™*it-Mw«.-ocn 

■ 

187 PRlNl' 'D CI" 

as primt- > cv 

'« PRINT B' * wcv 

■IS PRINT 69 09C3' 

<(XXJ- 

u print- carte, at route- 

US PRINTS i«HHT"t* 
16 PR|NnftBC2l),ll.EI '; PRHmftBC»»;«S 
;ft4:PRlNl 

ii? «i»n*t?i j; iie2-; ■«»Hii«iiM);m 

;ft2 'PRINT 

1 1B P»INtTABl2t>;'ILE3-; r-RlNlTABr.3B);A4 

-,m :PRINT 

its MtiNiriwzin iLE^-i rRlNTTfleOB);* 

3;ft4:PRINI 

'?• P*INTTAB(21); "i PRINTTAfl(38);ftl 

;*?:PRINT 

(21 PRINITA8l2t) ;'S-n- ; :PRINTTAB(M) ;0iJ 

PRINT 
122 pr.inTuqs ORDRES?" GOT03B 

i» PF-B:AC-AC»S.|FB1'I&0TO226 

;*» p*intb- 

."81 pr.|nt'c4c4c4c4c*c4c4c4c4c4c4c*c*c4c4 

;C«4C4^«<C4 " 

?82 PRiNTf-d4 ajt>.» 8* «ftc«C3C3c3e*85aoe 

OC3C3C3C3C5* 

283 PRlNTC a7848fta«B48ft» B7B2 



.1*4 PRINTC5 B>8? CS" 

?8S PRIHI'Ci C5* 

286 PRINTECC4C4C4C4<:4C4C2X2C2C8CItl209_t 

V4C4C4C4C4C4C5' 

28? PRINTS »•« 8"WS ** J5 r 

288 PRlNTtSBAB* 



.-89 PRINTC5 8A*5 -IMS C^~ 

218 PRJNTECC4C4C4C4C4C4C4C4C4C4C4C4C4C4 

C4C4C4C4C4C4C-4CV 

2!1 FORf *1T05:POKE446S.23=P0KE4466,5:14= 

•C3C3- 

2!2 P«"-H0R|?ON UIDE' PRINTP»:nuSICI« 

/13 FORl-lKWee-tXTI POCF.4465,25' 

214 POKE4466,5PRIMSPC(L£N<P*>J 

215 F0RI'1'O3Be-r«XTI XxrF^PRINr-WBWB 
«U0S ORCf- 

Jlfl G0I038 
^26 PRINTS'- 

22? PRINT-PRESENCE O'UM NflUIRE EHNErtl.. 
QUI N'ft PftS' 

228 PRINT -ITTENOU PfflJR WOUS COULERllf" 

229 PRINT PRINTUM SOUS (IftRIN EST SI UU. 
■CRftBLE Eft SURFACE " 

231 F0Rl=ITD4?BB NEXTI 

232 GOTO/aee 

249 PRI«T-p- 

256 PRINT ■C?FeC3fcfC3£/ ; eJ=C3C3£/-C3e3eFC3Ci 

C»C3E/C3FBC3€FC 3C3C3CT£«FC3C'CTC5 * 

25! PRINTC7 8«»4C4C5tCC«4€CC4C4ECC4C4F 

0C4CCC4C48664C4C4C4C4ECECC4C4C4C3" 

252 PRJNTC7 Bra5C4C5ECC4C4C4C4C4C4C4C4T 
0C4C4C4C4O485C4C4C4C4C4C4C4C4C4C5- 

253 PRIMT'C? CSCS FQ 



C5C5 



ca * 



254 PRINT-C7 



CSC5 



eo 



C5C5 CS- 

255 PRINTC7 C5CS FO 

9684';4C4C4C5 * 

258 PRIKT-C2 C5CS 01 

»K>C4C4C4C5- 

25? PRIKT-C7 CSC5 82o87 63C388 

cs- 

258 PRIKT-C7 CSCS 

C5" 

259 PRINTC7 CSCS 
» C5- 
20B PRINT'C? CSCS 
t!3r_3C3C3F8 CS" 

201 PRINT-C? EF FB C4C4C4C4C4CBCBC5 

C4C4C4C4' "C7 CS- 

2B2 PRINr-C7 Dft9B 9BCC C78388 C3C7 

F4 C7 84 CS* 
283 PRIMT-C? CB€BFC7COftEBin f78489*J9e48C 

"C5 E5E5E5E3 C7B484868FC5* 
294 PRINTC7 EFC3F8 C7OB0CS108D- C30 
BOCOeCCDeCC C? WBOBOCS- 

285 PRINTC7 C3C3C3 F5EA€BC50C7 B9C3 
EftEBtftEBEAEB C7 99E38CC5- 



CS2BC/84 



89C5C7 8 
83CFC3C3C3 



268 PRIM ■ V 184 BSCX.X3C 

■ ■ 
267 PRINT!? BC9 CB 

C?84 i ■■, 
288 rRlNIT? 8989CS 9!KBHi EFKF1 

I i CS f? B4C5C5* 

28S PRINI ■ C3C3CX3CXXX3CXX3t I ■' 

K3C3C3 " 

2?« PRIMI:iNnjT-P»CrOHDFUR tOrfWKWtdl- 
I2»] .x If »12BGOI0?49 

2?i ux<pftioto35a 

1?? IFX)F[)n0t0325 
2'J II X FO0OT038O 
274 IF»1I800T0287 
2?5 IFM>BBGOT028I 
??e iFx<oeatD4oa 

277 FORI-FTIDX 

278 PRlMT-8':PRIMTtl»C2a);-'a8«B«Bi«l«l»- 
; I :r«ISIC-C4C- :FORn*l TOSB^NEXTn 

279 MEXTI ,PF-X;F0RI»lTD5BB:NE>(TI 

28B PRINT" — HBBBB WW S ORORES' :G0T03B 

281 IFPF)B8GOT03Ba 

282 FORI-PFTOBBPRINT'B- PRINTTfW( 28) i '■ 
■■■■•■•■■M* |1 :r*JSICT4C' .Nf,xl I 

28T PRlNT'O'' :r0Rl-B8T0X.nUSIC-E5C- 

284 PRlNTTf»(2B] , MMMMHN' JpPRINTT 
«B(1B') J-l inlTE Of RUMURE- 

285 MEXTI Pf-X-PRIMT-LP COOUE ft TF.M1 COO 
IftNOftMT' 

288 PRInT'uOS ORDRES' t GO 1038 

28? Fl -iHUGiRHOt I nn 

288 IFF1>3G0TD2B1 IFPF>8BG0T03B8 

283 F0RI^PFT0ee:PSINT"8" PR!NTTftB(28) ;"■ 
•WMHHMM" \\ 

298 nUSIC*C4C" rF0Rn»ITO28:NE>!Tn:NEJ<n 

291 PRlNT-0--FORI=8BTOII8:rUSIC-C4C-:PRI 

292 PRlNTTflB(16];LinlTE OE RUPTURE" :HEX 



TTftet2e);' 



,[ 



381 PRlNTIflB(l6)i*LiniTE OE RUPTURE" :ntJS 
IC*C4C-=HEXTI-PF-)( 

382 PRINT-Lft COOUE ft TEMJ rtON COmftMOftNT 
•rPRINT'WOS ORORES' :&0T03B 

385 PRIHT*B*^PF=FD 

386 PRIKT-EFC3C3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3C3C3FB- 

387 PRIKT-CS C7* 

388 PR1MT'C5 C7* 

389 PRIHT-CS C7- 
318 PRIMT'CS ' C7- 

311 PRIHT-C5 C7* 

312 PRIMT'CS 83C3F8- 

313 PRIHT-C5 C2C2C2C2C8C2Cal9-C4 89 

c?- 

314 PRINT'EC83ESE5E5ESESE5£5ES£5E5E5€58e 
83 C7* 

315 PRIMT-ECC4C4CtC4C4C4C4C4C4C4C4C4C4C4 

C4C4C4C40W 

316 U1»-'P0SE SUR LE FOMO' 
31? FORr>lTOS 

318 P0KE4465,23:P0KE4466.6:PRI»THI»;nUSI 
C-E5C- 

319 F0RI'!T0388:NEXTPP0KE445S,23 
r28 P0KE44B6,6:PRINTSPC(LEMCU1«)) 

321 F0Rl = IT0988-WEXTI-ME>;Tn 

322 PRIHT'HMMBUOS ORORES' :GOT033B 
325 GOT02943 

338 GET2.»:IF2«-"WT033B 

331 IF2«=-n'&0T032S 

332 GOT051 

358 IFX-8GOI0199 

351 ifX<6THEWT-X-IFX<6GOT0488 

352 FORlipFT0XS!Fi*-1 ^^ 

353 PRmT-8-:PR!NTTft8C2BJi'8B«"»"««>""" 
-IPRIMT-B- 

354 PR1MH08C2BJ , "BJMMIIM' H :«JSIC* 
C3C-:mEXT1 

355 PF=X-PRIMT"»BM»IM»«S ORORES' ^GOIO 



488 lFtPF>5).tPF^B)TMENPF=5 

481 IFPf'5GOI0485 

482 PF=X 
*B5 ftC-ftC'2 

486 1FPE-IGOTOI39B 

■»88 PRIMT'B- 

-89 PRINT-EFC3C3C3C3C3C3C3C3C3CK3C3C3C3 

C3C3C3F8' 

-18 PRIMI -FCC4-K4->r4->C4"C4'>C4?r4''r 4-J[)ft* 

411 PRIMT'CS C2C2r.2C8C2C20'J-r4 E7" 

412 PRIfH"C5 C>"* 

413 PRJNT-C5 C7" 
4T4 PRIMT-C5 C7 " 
4(5 PRIHT-C3 C-'" 
418 PRIMT'CS c '* 

417 PRIMT'CS C7' 

418 PRIMT'CS C? H 

419 PRIMT'CS 89C3C3T,388 C7> 
428 PRIMT-ECC4C489C3C3C388C4C4C489 8 
806' 

421 PRIMT'ECC4C4C4C4C4C4C4C4C4C4C4C4r.4C4 

C4C4C40ft - 

422 PRINT ■■-:PRIMTTftei28);'BB8»MlnnCRSI 

OH- 



423 PRIM! Ml I": PIQUK* 

474 PRINT '■■— BBUUS (WURES^nOIO'JB 
441 II > I HH010455 

4tiB PE-B:PRINI-8':U»"'PERI5C0PF RCHTHE' 

451 F0Rn-n05:POKE446S.l»-POKE44B8.l3iPR 
INIUI 

452 F0RI-1TO388iNEXII=P0KE4465,IB:P0KE44 
00. I3:PRINISPC(I.EN(U«)J 

453 FORI-ITOMM^NEXM NEXin 

454 PRINT :PRINT :PRIH1*W0S ORORES* :G0I038 
453 PRINT-B'-PRINT-LE PERISCOPE ETftll OE 
Jft RfHIRE- 

456 PRlMl'COnnftMOftNT <JOS ORORES' 

457 00T038 

594 l>:-r 'i,iMI Lei. ■)!! 

595 IF(PF>S)*[ftC<llC0I0O44 

596 IF(PF<6Iltn(<l)G0T063B 

oee pRiHT-n- 

081 PRINT- 8 - 

082 PRINT" 7 T I * 

083 PRINT- 6>E8FOE042 * 
B84 PRINT' 5*3- 
085 PRINT' 1 

686 IFPF>STHEMftC-ftC-l 

687 IFPF<6TtiEMT2=n?-l 

688 PRINT ;PRlNT-INPUT'OIRECTlOK?CB-7)*;0 

689 lF0I>7GOioeae 
018 IFOI-BTtCNO-O 
61 1 IFDI=-BIHEMJ-J-1 
012 IFOI-ITKMO=0'1 

613 IFOI»ITI«JW»J-l 

614 IF0I=2THEN0-0*I 

615 IFDI-2TKEMJ=J 

616 IFDI=3TMENO^0'1 
61? IF0I=3THEMJ-J*1 
618 IFDi=4THEM0=0 
819 IFDJ-4THEMJ=J*1 

628 IFOI^STHEMO-0-1 
821 IF01=5TM£HJ=JH 

622 IFOI-6THEMO=0-1 

623 IFDI=6THEMJ=J 

824 IF0I=7TM£M0=O-l 

825 IF0I"?THEMJ-J-1 

626 !FCO<0)tCO> 6S)G0T0I?I3 

627 IF(J<BJ*CJ> 6SJG0T017I3 
028 lF(0=ft5)tCJ=fl4)G0T02588 

629 ]F(0-fl2J*CJ=/»2JG0T02SI 1 
638 IFCO>ft4)*[J=ftnG0T02S21 
831 IF(0=fi3)*(J»ft4JG0T017tB 
632 IF[0'ft1)*CJ=-ft2JGOTOI728 

635 PRINT'UOS ORORES' 

636 G0T038 

637 IFtPF<6)*tftC>8)G0T0648 

638 PRINT'S' -PR1NT-RESERUE DE rW20UT EPU 
ISEE* 

639 PRINT'UOS ORORES' :&0T038 
648 ftC-25:GOT0688 

644 PRINT'B-:PRINT'LES BATTERIES SOHT EP 
UISEES- 

645 PRINT-SURFftCE OU innERSION PERISCOPI 

OUE- 

646 PRINT-POUR RECNORGER' 

647 PRINT'UOS ORORES' -&0T038 
788 I»-II*-PRINT 

781 IFftC>28TKENflC=2B 

782 PR|NT"PROFONDEUR*;PF 

783 PRINT -FONO " > r 

784 PRINT-nft?OUT 'JflS 

785 PRINT'TORPILLES * ;T t 

786 PRINT'TEnpS ' :T« 

787 PRINT-BftTTERIES * JftC 

788 B24-TI«;TSj-(Uftl.(B24>)7l8 

789 CT-CT-TS 

71B PRINT-POINTS * ;CT 

711 PRINT-UNITES DE UftEEUR' ;IW 

712 IFIL-lTHENPRIMT-ILE I RflUI Tftll.LEflENT 

713 1FIP-1TKNPRINT-ILE 2 CftUI IftlLLEHENT 

714 IFIS-ITHENPRIMT'ILE 3 RftUI Tftlll EnENT 

718 PRINT'UOS ORORES- GO I 038 

795 pRINI'■':FDRI■'ll02a^PRlMITftB(28)i■■ 

-:NEXTI 
888 PRINT-8':FORU-IT09 

881 PRINT IftBC 23) ;D*tUJ :PRINT ^FORn -1 T028B 
iMExrtUMEXTU 
B87 PRINT'UOS ORORES' 

883 G£Ti?*;|F** = - •G0I0B83 

884 PRINT -i-iFORI'l 101 B^'-RINT TftBC23J i* 

-:MCXTJ 

885 GOTOr.I 

899 IFT1-BGOI038S 

988 IFCH-1G0I0987 

Wl CM- I .'PR1NT-TUBC LftMCF TORPJLLE PftRf' 

982 PRINT'UOS ORORES' 60T038 

985 PRINI'rWGftSIN ft TORPILI.FS UII». COdnft 
NDfiMT- 

986 PRINT'UOS ORORES- .GOT038 

987 PRINT'lft tORPIUE ElftIT OF. Jft CHARGE. 
I OmftNflANT' 

98B PRINT'UOS ORORES- GOT 038 
1888 IFCMO1G0T0184B 
1881 IFPF>5GOT0IB42 
IB82 IFB1-8G0T0I844 



C'EST NOUVEAU, 
CAVIENTDESORTIR! 



#9 



PERITEL STEREO 

Dans la s6rie "Evitons de nous 
prendre les jambes dans les fils 
qui Irainent partout". la sociele 
GENICA. specialises dans la fa- 
brication de cordons Audio, 
Video, Micro - inlormatique et 
Telematjque, fabrique un adap- 
tateur permetlant de brancher 
sur un televiseur. equipe dune 
prise peril ele vision, un magne- 
toscope el un micro- ordina- 
teur, ou deux ordinateurs. avec 
basculemenl de I'un sur lautre 
par simple interrupteur. 
Longueur du cordon = 1 metre. 
Prix de vente public TTC: 
320.00 F. environ. 
Ce produit s'ajoute a la gamme 
ires complele de cordons 
micro- informatiques )abriqu6s 



par GENICA (pour ORIC. TI99, 
CommotJore. Alice Tandy. Sin- 
clair. T07. Lynx. BBC. Atari 
etc..) 

GENICA B P 40 YZEUF^t 
FRANCE. 




TELE ORIC 

ORIC FRANCE se lance dans 
['importation et la diffusion de 
moniteurs. la NOVEX 12/800 est 
un 31 centimetres vert ou ambre 
au pnx public de 1 .090 F. 
Le NOVFJC 1414 CL est un 37 
centimetres couleur et il vous 
coutera 2.800 F.TTC. Hdais ou 
s'arreteront-ils chez ORIC? ■ 




A suivre ■ 

En raison de la longueur 
inhabituetle du listing, 
nous passerons ce pro- 
gramme en deux lois. 

La Redaction 



1BB4 I NPIIT -COOROOKMEES OU TIR( I 1-36)" ;C0 

1885 IE(C0(I1 jTtC0>9Ti)0ar018»4 

1886 Tt-TI-l --CH-8 

1887 IFC0OC5G0T01824 

1888 81=8 

1889 IFBft=-ITICNCT-CT-3tNMI 

1818 II Rft-llUFNNft^NAH 

1811 lF8A-BIHtMrr-t.U58e 

1812 iF8n-8TllENNE-ME*l 

1813 PRINl'n- 

1814 PRlNT'fFC3C3C3C3C3C3CX3C3i:3C3C3C3C 
X3C3F8" 

1815 PRIMT'CS COULE C7" 
I81D PRINI-C5 C7' 
1817 PR1NT-C5 F5 C?* 

18IB PRInI'EFC3C:m:3C3C3C3C3C3C3C3C3C3C3C 
aCjCDFB' 

1819 PRINTT5 CS" 
1828 PRINT'CS C7* 
1821 PRlNT'CS C7* 

187? PR[NT-frC4r4C«C4C4C4C4C4C4C4C4C4C4C 

4C4C40A- 

1B23 PRINI'UOS ORORFS' GOT038 

1824 L«-*B0Ur1. .' 

'B25 PRINT"*-- PRINt'RftTE AIIENIION ft 

Lft RIPOSTC- 

1826 F0RI-U08B«:MfXII PRINI'B" 

1827 FORI-1I0IB 



ERRATA du NT 3-4 Si 



t'sviez pas de miroir ch«z vous 



a suivre 




LE LOGICIEL 

DE LA SEMAINE 

Axis assassin 
...pour APPLE .COMMODORE 64 et ATARI 




Un togiciel propose par EDA 
(Electronics Arts) 
Votre mission: delruire les 
combattants envoyes par le Mai- 
tre des araignees. au iravers de 
plus de deux cents tableaux. 
Vos armes: une puissance de 
feu illimrtee et une bombe pul- 
sante par tableau. 
Comment se deroule une par- 
be? Void une explication en plu- 
s»eurs temps: 

Lorsque vous chargez la dis- 
kette, un premier menu vous 
propose trots maitres des arai- 
gnees de failles drfferentes. Le 
plus petit est, bien sur, le moins 
dangereux...Ne surestimez pas 
vos capacites. 

Le choix que vous effectue* a 
cet instant restera valable tant 
que vous ne Vebooterez" pas la 



Una ibis le jeu charge, une nou- 
vele selection est possible 
(mais non obligatoire: en effet. 
le niveau le plus bas vous est 
propose d'office). grace au 
■GRID SELECT. 



Oans cette gnlle. vous pouvez 
faire defiier les differenls ni- 
veaux disponibles. 
Chaque tableau se compose 
dune toile d'araignee de forme 
geometrique vue en perspective. 
Voici les obstacles que vous de- 
vrez franchir pour atteindre le ta- 
bleau suivant. 

Vos adversaires se groupent en 
trois types essentiels. 
Les premiers tendent des fils 
transversaux a la toile. Prenez 
garde de ne pas vous y pren- 
dre... Comme une mouche! 
les derniers voyagent par deux. 
Pour les abattre, vous devez les 
toucher tous les deux, sinon 
fuyez ou restez...a vos risques 
et perils. 

Pour achiever un tableau, vous 
devez exterminer un nombre 
fixe de mercenaires (ce nombre 
augmente avec la difficulty des 
tableaux). Des que le quota est 
atteint, I'araignee apparait au 
fond de sa toile. II vous faut la 
toucher dans les secondes qui 
viennent. sinon prevenez les 



pompes funebres. 
Lors de I'apparition de I'arai- 
gnee, si vous larguez la bombe 
pulsante, vous etes transports 
dans le nid de I'araignee pour 
un combat encore plus difficile. 
Votre but est de liberer un de 
vos compagnons, prisonnier du 
maitre des araignees. Facile? 
Pas tant que ga: tous les assas- 
sins que vous avez perdu se 
battent contre vous; le maitre 
des araignees ne doit pas etre 
louche; votre compagnon est a 
I'interieur d'une zone blindee 
que vous devez percer...Et tout 
cela doit etre realise en moins 
d'une minute, sinon le nid ex- 
ptose. Si vous reussissez. vous 
passez au tableau suivant, avec 
un assassin de plus en reserve. 
Vous sentez-vous pret au 
combat? Alors faites vos adieux 
a tous les etres qui vous sont 
chers...Et battez-vous! Le Maitre 
des araignees aime les sacrifi- 
ces hu mains. 

Michael 



PETITES ANNONCES 
GRATUITES 



VENDS TI99 1A ires bon elat t 
cordon K7 I deux livres de pro- 
grammes pour Tl.: 1200 F. 
MA.de BROUCKER 112, bd 
Malesherbes 75017 PARIS Tel 
227.53.12. 

ACHETE pour TI99-4A 2 manet- 
tes de jeux. Faire offre au 

(93)57.14.48 Cynlle PAPAZIAN. 

CHERCHE unite mlegree de 
disquette avec carte controleur 
pour TI99/4A. Monsieur FRON- 
CHET 29 rue de Crequi LYON. 

CHERCHE possesseur VIC 20 

pour echange el renseigne- 
ments de programmes. J.Marc 
BOUDOU 82200 MOISSAC 
Tel.:(63)04.03.74. 

ACHETE ZX81 + 16K prix rai- 
sonnable. Serge au 606.49.87. 

VENDS ZX SPECTRUM 48K + 
Pehtel + nombreux programmes 
(arcade, reflexion. )decembre 83 
sous garantie. Valeur 3500 F. 
Vendu 2800 F. Tel.: (91) 
49.85. 20.{apres 18H) 

VENDS T07 (tres bon etat 
annee 83) + Pictcr + basic + 
magneto + 7 livres (valeurs 
6216 F.) vendu 3500 F. Ecrire 
ou tel. a B.GRIMAL 39 bd gam- 
betta 72200 LA FLECHE TEL.: 
(43) 94.02.31. 

VENDS console CBS avec 11 
K7 dont TURBO ET QUICK 
SHOT III. 2900 F. Tel.: 
016.50.91 . (dans la journee). 

VENDS TRS 80 modele I niveau 
2 16Ko ecran vert + clavier nu- 
merique + interface exterieure 
32Ko + Driver BASF 6108 
DFDD. + livres + revues 8500 
F. DA CUNHA ISMAEL 11 rue 
Cours communes 92380 GAR- 
CHES. 




VENDS CANON X07 garantie - 
programmes et manuel 2050 F 

t x 710 1800 F. + X 730 ma- 
gneto K7 650 F - X 722 
convert is seur RS232C 600 F. + 
XM 101 - 8Ko 760 F, + XR • 

100 8K 700 F * XC-910 50F. 
Willie BOUKHOBZA 83 bis rue 
Lafayetle 75009 PARIS Tel.: 
281.41.23. 

CHERCHE pour TI994A sys- 
teme disk. + accessoire pour 
branchement sur ordmateur - 
module de "gestion de disk" Oli- 
vier JOURAULT 69 rue de la 
Paroisse 78000 VERSAILLES. 
Tel.: 950.03.91. 

VENDS modulateur SECAM 
pour T07 400 F, Claude GEN- 
DRAUDTel.: (73) 22.03.37. 

VENDS SPECTRUM 48K peritel 
avec K7jeux programmes RTTY 
- CW et 500 F. de livres sur 
SPECTRUM . le tout 2300 F. 
Daniel KLOTZ 14 rue de Rome 
57210 MAIZIERES LES METZ. 

ACHETE module basic etendu 
pour TI99/4A Jean Michel BAR- 
BERA Tel.: (91)79.78.18 (apres 
17H). 

VENDS pour TI99/4A Module de 
jeu Connect for Blasto Carwars, 
Charge Wimps 100 F. L'unite. 
J.C.MARTINEZ 14 impasse 
campagnou 31200 TOULOUSE. 

VENDS HP41 CV + lecteur 
carte + imprimante + chargeur 
et accus + manuel et program- 
mes Prix 4000 F. VENDS 
TI99/4A + cordon + manettes 



base eterxlu - module 
Echecs - livres et K7 ;■:■ ■ 
2200 F. TELBA OTMANE Tel 
(3)950 32 42 VERSAILLES 

VENDS CANON X07 8Ko - 
raccord magneto - Irans'o sec- 
teur - .- 

Iivre programmes Le tout 2250 
F. Frederic DARUTY 51 avenue 
du 11 Novembre 92190 MEU- 
DON.Tel.: 534.98 29.(apres 

19H) 

Vends logiciel "Flight simii 
IFR" sur cassette pour Commo- 
dore 64 - Importe U.S.A. - neuf - 
300 F Tel. Bureau 20341.28 - 
Apres 19 h 30. 543.59.09 
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LA REGLE A CALCUL 

sort une extension memoire 32 K exterieure pour la console Tl 99/4. 

Avec 48 K ram, vous allez realiser des programmes plus performants, 

utiliser le logo II (en francais), 

outil indispensable a I'eveil informatique des eleves. 



OREHNATEUR FAMILIAL Tl 99/4 
CONSOLE5 ET ACCESSOIRES : 



ModuM«urS£'V I I 

ModjUieur SECAM KX ' 
JCAMGH 
CSWe temon mjqnelo-CMitim 
Panemantii ajei J • 
Magneio-cawetifi compatible 

■ i 
Magneto-raMene-, compwU*' 
. ■ .■■ - 

•r>»OGHAMMAT»ON SUR OtSOUETTES : 

One P cc-telpetm Pa&Cjfl 
"UCSD PmtA CompilCT 
•UCSDPtoctf Linker 

•UC5D Pnut Edaor 

'imprrrurw n 77/4 jwf tcrtntrt* 

'Ficfwi cfadreuri 

* Aiflr J> Li (jroqf^nrnxkin 2 

" Amir- A L* ptooramnwliorj 3 

trntximomr Srlfcoifvi GP 100 

IntertM c porM&r ri/99 - GP 100 

•Qeonoie 

•BfcBMntP *i mMenmin 

'NO t PM r^itv^mir de ptfti/tirr 
If boftirr ifMmwti Ptf I70O et 
If eomiUrMt Or fkVfirvr-. p*n run** 




Extension 32 K 
TI-LOGO II 



} 1-995 Fl 



1800.00 


11 1 


600,00 


; i 


600.00 


1 1 


600.00 




3 000.00 


1 1 


415.00 


i ; 


-•06.00 


1 1 


706.00 




? 300.00 


n 


1 790.00 


ii 


37^,00 


' i 


J/5O0 


ii 


757.00 


1 1 



PROGAAMMAnOM 




• E*WlKjrU tow >i*r« 






WmwtP nwwm 37 K tnafrmae 


1 700.00 




riLOGOl 


/n.oo 




fnttptiwin J7 K mrtnprir^&r] 






&fMt par v»-m(m( 


75.00 




An*- Ji Li ptoty^mnution 


/', (If J 




OOCAMSAnOM 






Cofnnl Twunrjpr 


/5.00 


1 1 


GrMwn fwUrt 


375.00 


II 


Gnuon ( -npfioni 


375.00 




UUO 


706.00 
415.00 


1 ! 


r>ymnptivtv 


415.00 


1 1 


MOOULES ErJUCATION 








I47XW 


11 


Adduon-Sulnlrxuon 1 


147.00 


D 


A'Wrtfli! 0«¥>n 


I4/.00 




[>vrjrrii rtrtnoWioti 


14 7.00 


[ i 


F_rftty Kp.kIhii] 


147.00 


a 


Mflw nKjktfAKAWi 


14 7,00 


ii 


MuHifAcAuan 1 


147.00 


ii 


litilt Mill 


706.00 


ij 


MODULES LOTURS 








I4/O0 




MutitH M-iti 


757.00 


1 1 



Texas Instruments 



Othrto 



NOUVEAUX LOGIOELS TEXAS 



<*jp**r 


757.00 


" 1 


Demon MtAfk 


757.00 




Mnh 


757.00 


11 


B ""» rrumr 


757.00 


U | 



3 Wl NATHAN ; 
( junae rnH*r miMr 
C n»np rt mM. 
Mon ntme\ wrf I 
MM\ irrmr-bVQl 7 

PROGRAMME COUJNVTEXAS 

irtiorl .m Tl 99/4 (l| 

Wiwl mi tl 99/4(7| 

I f, tettnffM-\ tie: |>*tKp.imtnr-. 

dejeuxft 

It-. (r«li»»i>ii-i<lt-ip«o7(^tttmt-i 
fJf^j.fTI 



I (EBOOGICKIS SOFTWARE 

UN" 1 Hmc-jmpIeK? 
Jl N° 7 H^wt Nmdu 



ItoppW 
•Mlrrtk 

hlwid 


757.O0 
757.00 
757,00 
757.00 

99.00 
79.00 


n 
n 

D 
D 

n 




t/5.00 
175.00 
1 75.00 
175.00 


1 1 
1 1 
1 1 
1 1 




75.00 

r,.on 
75.00 


1 1 




75.00 


" 



MODULES fUNWAHE : 

K.tlltJ'l iT^tl 

OivinFjOrmoo 

Ambotmrf 
S.«ii N«fc 



fcij« tl pmtjtjmmi - Irnne I 
>Ti« « protjrjtnrnrs - Jome 7 
lent rt ptotj«^iTifnr\ - lome i [t«yt rtmt»ij 

Ed. RACK): 

IV^fK|i«- 1*1 tl 79/4 - Wrv.-.-i I 

ItAtttpie dti tl 99/4 - Nwmu 7 
'A) pnxpjtnmn 1197 

hwtL<t*H1 I VI'.* 

kMbimn .*< twiner tu%ic 



705.00 


1 1 


785.00 


1 1 


785.00 


M 


785.00 


II 


785.00 


U 



EYKOLLES: 

CotKftntr du II 99/W» 1 Aftl) 
Mot. n 79/4 A/CIYRAI 



(Boli rONNOlKI 

LBflranthdWbue 

poiir urjttr II 99/4 A 



155.00 
155.00 
155.00 


a 

■: i 


170.00 
170.00 
85.00 
95.00 
95.00 


D 

ii 
1 1 

a 


89.00 
75.00 


1 1 

1 1 


90.00 
90.00 


1 1 


77.00 


1 1 



150.00 
150.00 
90.00 I 



LA PROMOTION DE LA SEMAINE 

Module* jcux : 

l*w foriMker, munch -nun. rctour 

du pirate hopper, technique 

prog rairurw Hon del Jeux n" 1 1 et 2 

1 | !.iirc de rrwnetles de Jeux 

gfflluite 




LOGO II en francais : Module cnfichable 
Ce langage destine auxjeunes fait com- 
prendre la philosophic informatique 
tout en laissant a leleve la maitrise de 
lordinateur par ('obligation de lui don- 
nerdesinformationicomplementairesa 
votre demande. 

Mathematiques et autres disciplines 
d'enseignement peuvent etre abordees 
dune maniere naturelle. 



BON DE COMMAMDE 

TARIFSAU 11/6/1984 



r H-lit.tfiK n iwiivrtil eue modMi 



lAWC.II ACALCm 

;.'.//./ r..i'....,i Germain MOO 

M 125.68 SS rein i fRAV 

Ltvr*rto*i <tr\ produtti dllpo 



